如何在perl脚本中使用“perl-pne”功能

-e 接受任意复杂程序。所以只要加入你的替换操作。

perl -pe 's/from1/to1/; s/from2/to2/; s/from3/to3/; s/from4/to4/; s/from5/to5/' in > out

如果您真的想要一个能显式地处理输入和循环的Perl程序,那么可以将一行代码拆开以查看生成的代码并从这里开始工作。

> perl -MO=Deparse -pe 's/from1/to1/; s/from2/to2/; s/from3/to3/; s/from4/to4/; s/from5/to5/'
LINE: while (defined($_ = <ARGV>)) {
    s/from1/to1/;
    s/from2/to2/;
    s/from3/to3/;
    s/from4/to4/;
    s/from5/to5/;
}
continue {
    print $_;
}
-e syntax OK

你没有回答的问题的相关答案 相当地 perl special variable $^I ,与一起使用 @ARGV ,提供了的就地编辑行为 -i . 与-p选项一样,Deparse将显示生成的代码:

perl -MO=Deparse -pi.bak -le 's/foo/bar/'
BEGIN { $^I = ".bak"; }
BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    s/foo/bar/;
}
continue {
    print $_;
}