如何将多个 Perl 单行代码合并到一个脚本中？

Question

我想将多个单行列移动到一个脚本中。

例如：

perl -i.bak -pE "s/String_ABC/String_XYZ/g" Cities.Txt
perl -i.bak -pE "s/Manhattan/New_England/g" Cities.Txt

以上方法对我来说效果很好，但代价是两次磁盘 I/O 操作。

我想将上述逻辑移动到单个脚本中，以便所有替换都在文件打开和编辑一次的情况下完成。

EDIT1：根据您的建议，我在一个脚本中编写了这个 sn-p，当从 Windows 批处理文件调用该脚本时，它只会挂起：

#!/usr/bin/perl -i.bak -p Cities.Txt
use strict;
use warnings;

while( <> ){
s/String_ABC/String_XYZ/g;
s/Manhattan/New_England/g;
print;
}

EDIT2：好的，这就是我实施您的建议的方式。像魅力一样工作！

批处理文件：

perl -i.bal MyScript.pl Cities.Txt

MyScript.pl

#!/usr/bin/perl
use strict;
use warnings;

while( <> ){
s/String_ABC/String_XYZ/g;
s/Manhattan/New_England/g;
print;
}

非常感谢所有做出贡献的人。

Answer 1

-p 将-E 的参数包装为：

while( <> ) {
    # argument to -E
    print;
    }

所以，把所有的参数都带到-E，然后放到while：

while( <> ) {
    s/String_ABC/String_XYZ/g;
    s/Manhattan/New_England/g;
    print;
    }

-i 设置了$^I 变量，它开启了一些特殊的魔法处理ARGV：

$^I = "bak";

-E 开启了该版本 Perl 的新功能。你可以通过指定版本来做到这一点：

use v5.10;

但是，至少在您向我们展示的内容中，您不会使用任何加载的内容。

如果您想查看单线器的所有功能，请在其中输入-MO=Deparse：

% perl -MO=Deparse -i.bak -pE "s/Manhattan/New_England/g" Cities.Txt
BEGIN { $^I = ".bak"; }
BEGIN {
    $^H{'feature_unicode'} = q(1);
    $^H{'feature_say'} = q(1);
    $^H{'feature_state'} = q(1);
    $^H{'feature_switch'} = q(1);
}
LINE: while (defined($_ = <ARGV>)) {
    s/Manhattan/New_England/g;
}
continue {
    die "-p destination: $!\n" unless print $_;
}
-e syntax OK

Answer 2

您可以在 #! 上添加参数！线。 Perl 会读取它们，即使在 Windows 上也是如此。

#!/usr/bin/perl -i.bak -p

s/String_ABC/String_XYZ/g;
s/Manhattan/New_England/g;

或者你可以像 @ephemient 在 cmets 中所说的那样保持单线。

perl -i.bak -pE "s/String_ABC/String_XYZ/g; s/Manhattan/New_England/g" Cities.Txt

-i + -p 基本上在你的程序周围放置了一个while循环。每行以$_ 出现，您的代码运行，$_ 在最后打印出来。重复。所以你可以有尽可能多的语句。