Question

我想替换文件中的字符串。我当然可以使用

 perl -pi -e 's/pattern/replacement/g' file

但我想用脚本来做。

还有其他方法可以代替system("perl -pi -e s/pattern/replacement/g' file")吗？

Answer 1

-i利用您仍然可以阅读未链接的文件句柄，您可以在perlrun中看到它使用的代码。自己做同样的事情。

use strict;
use warnings;
use autodie;

sub rewrite_file {
    my $file = shift;

    # You can still read from $in after the unlink, the underlying
    # data in $file will remain until the filehandle is closed.
    # The unlink ensures $in and $out will point at different data.
    open my $in, "<", $file;
    unlink $file;

    # This creates a new file with the same name but points at
    # different data.
    open my $out, ">", $file;

    return ($in, $out);
}

my($in, $out) = rewrite_file($in, $out);

# Read from $in, write to $out as normal.
while(my $line = <$in>) {
    $line =~ s/foo/bar/g;
    print $out $line;
}

Answer 2

您可以轻松复制Perl对-i开关所做的事情。

{
    local ($^I, @ARGV) = ("", 'file');
    while (<>) { s/foo/bar/; print; }
}

Answer 3

您可以尝试以下简单方法。看看它是否最符合您的要求。

use strict;
use warnings;

# Get file to process
my ($file, $pattern, $replacement) = @ARGV;

# Read file
open my $FH, "<", $file or die "Unable to open $file for read exited $? $!";
chomp (my @lines = <$FH>);
close $FH;

# Parse and replace text in same file
open $FH, ">", $file or die "Unable to open $file for write exited $? $!";
for (@lines){
    print {$FH} $_ if (s/$pattern/$replacement/g);
}
close $FH;

1;

file.txt的：

Hi Java, This is Java Programming.

执行：

D:\swadhi\perl>perl module.pl file.txt Java Source

file.txt的

Hi Source, This is Source Programming.

Answer 4

您可以使用

sed 's/pattern/replacement/g' file > /tmp/file$$ && mv /tmp/file$$ file

某些sed版本支持-i命令，因此您不需要tmpfile。 -i选项将生成临时文件并为您移动，基本上它是相同的解决方案。

另一个解决方案（Solaris / AIX）可以将此结构与vi：

结合使用

vi file 2>&1 >/dev/null <@
1,$ s/pattern/replacement/g
:wq
@

我不喜欢vi解决方案。当你的模式有一个/或另一个特殊字符时，很难调试出错的地方。当shell变量给出replacement时，您可能需要先检查内容。

Answer 5

您可以在不重新创建-i标志的功能或创建一次性变量的情况下处理问题中的用例。将标志添加到Perl脚本的shebang中，然后阅读STDIN：

#!/usr/bin/env perl -i

while (<>) {
    s/pattern/replacement/g;
    print;
}

用法：保存脚本，使其可执行（使用chmod +x）并运行

path/to/the/regex-script test.txt

（或regex-script test.txt（如果脚本已保存到$ PATH中的目录中。）

超越问题：

如果您需要运行多个顺序替换，那就是

#!/usr/bin/env perl -i

while (<>) {
    s/pattern/replacement/g;
    s/pattern2/replacement2/g;
    print;
}

如问题示例中所示，将不备份源文件。就像在-e内联中一样，您可以通过在file.<backupExtension>标志中添加backupExtension来备份到-i。例如，

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

如何用脚本中的Perl替换文件中的字符串（不在命令行中）

5 个答案: