タグ「perl」のすごいエントリー
いちいち変数定義して、 my $s = "Hello, World\n"; $s =~ s/Hello/Goodbye/; print $s; とか書くのにあきてきたので、 sub ndes (&@) { my $code = shift; my @a = map { local $_ = $_; $code->(); $_; } @_; wantarray ? @a : $a[0]; } と、まとめてみました。これで、 print ndes { s/Hello/Goodbye/ } "Hello, World\n" とするだけで「Goodbye, World」が表示されるように。でもとっても再発明 (あるいは遠回り) のにおいがします。どうすれば、... 続きを読む
9 コメント
9 コメント
