srkzhr https://blog.hatena.ne.jp/srkzhr/ 半径5メートル https://srkzhr.hatenadiary.org/ Perl 無名サブルーチンをレキシカル変数$refに入れると&$refで呼び出す感じになるわけですが、なんだか不恰好。やたらめったら使うべきではないんだろうけど、型グロブでエイリアスをつくってやれば、普通のサブルーチン呼び出しのようにして使えますね。 my $target = 'abcbac<ok>dddse'; my $regexp = '<(.+?)>'; *regexp_p = sub { $_[0] =~ m/$_[1]/; defined $1 and print $1; }; regexp_p($target, $regexp);一度使った型グロブの名前は未定義にしてやればまた使えます。 u… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fsrkzhr.hatenadiary.org%2Fentry%2F20080317%2F1205750776" title="型グロブでサブルーチンのエイリアス - 半径5メートル" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2008-03-17 19:46:16 rich https://srkzhr.hatenadiary.org/entry/20080317/1205750776 1.0 100%