perlでワンライナーを使うとき

Perl スレにあった

31 ：nobodyさん ：sage ：2009/09/14(月) 18:22:59 ID:???
    一応書いとく。
    ワンライナーが本来どう解釈されるかを見るには、B::Deparseを使う。

    % perl -MO=Deparse -i.bak -pe "s/foo/bar/g" *.txt
    BEGIN { $^I = ".bak"; }
    LINE: while (defined($_ = <ARGV>)) {
    　s/foo/bar/g;
    }
    continue {
    　print $_;
    }
    -e syntax OK

    そのまま必要部分をコピペしたらスクリプトの出来上り。