引数の名前を知る方法 Data::Dumper::Names Perl Hacksで紹介されていたSmart::Commentsもいい感じです。 #!perl -w use strict; use Smart::Comments; sub f{ my($foo, $bar, $baz) = @_; ### $foo ### $bar } f(42, ['xyzzy']); __END__ 結果: ### $foo: 4…

IO::scalarでIOのキャプチャは一行でできる気がしたのでやってみる。 { open local(*STDIN), '<', \"Hello, world!\n"; print <STDIN>; # => Hello, world! } print scalar <STDIN>; これでうまくいった。しかし，local()の括弧をはずすとPrecedence problemという警告が出</stdin></stdin>…

SYNOPSISの構文を自動でチェックするというアイデアをid:miyagawaさんがモジュールにしてくれました。 http://search.cpan.org/dist/Test-Synopsis/ ファイルを探すのにExtUtils::Manifestを使っているのがクールですね！あとこのreturnの使い方に仰天： ret…