7章 ソース解読
- B::Deparse 重要(イメージとしては,cc -E みたいな)
- Perl::Critic チーム規約とかあればそれに沿ったドットファイルとか書くかなぁ.
$ perl -MO=Deparse -naF: -ple '$_=$F[2]' BEGIN { $/ = "\n"; $\ = "\n"; } LINE: while (defined($_ = <ARGV>)) { chomp $_; our(@F) = split(/:/, $_, 0); $_ = $F[2]; } continue { print $_; } -e syntax OK
$ sudo aptitude install libperl-critic-perl $ rehash $ perlcritic