と言う訳でつたないコードですけど投稿してみたお！ CPANに頼りまくる系 #!/usr/bin/perl package Foo; { no strict 'refs'; for my $method (qw/foo bar baz test_foo test_bar test_baz/) { *{"Foo::$method"} = sub { print $method . "\n"; }; } } sub n…

perl -Mwarnings -e '$\ = "\n"; print for keys %warnings::Offsets;'inplace ambiguous semicolon pipe substr closure redefine parenthesis bareword prototype syntax io unopened newline exec recursion once debugging portable layer deprecated mi…