昨日初めて知ったのだけど、 これを使えばRubyのブロックっぽいことができるのかな？と思って実験してみた。 #!/usr/bin/perl auto_open_close("hogehoge", sub { my $fh = shift; my @lines = <$fh>; print @lines }); sub auto_open_close() { my $fpath =…