替换Perl脚本中的每n次出现

Question

我有10行的文本文件。 每行中都有单词no_access，并且其中仅包含单词。 我发现了一个网站，该网站的语法可以替换每n次出现的某个字符串。 当我尝试将其放入脚本中时，会吐出错误。

每N次替换一次

这是我到目前为止的脚本：

use strict;
use warnings;

while (<>) {
my $count = 0; 
s/no_access/(++$count % 3 == 0)?"read":$&/ge;
}
print;

但是，我收到错误：在打印中使用未初始化的值$ _。

我尝试了没有print命令的脚本，但是什么也没有发生。 如何使此脚本运行并执行每三个“ no_access”的替换。

Answer 1

这是另一个选择：

use strict;
use warnings;

my $i = 0;
my $n = 3;

while (<>) {
    s/no_access/read/ if !( ++$i % $n );
    print;
}

用法： perl script.pl inFile [>outFile]

最后一个可选参数将输出定向到文件。

希望这可以帮助！

Answer 2

您的代码几乎是正确的，只需将变量声明移到while循环外，然后将打印内容移到里面：

use strict;
use warnings;

my $count = 0;
while (<>) {
        s/no_access/(++$count % 3 == 0)?"read":$&/ge;
        print;
}

然后，它从stdin读取并打印到stdout，根据需要更改每个第3次出现的值。

如果要读取文件，更改其内容，然后再次写入，则代码可能如下所示：

use strict;
use warnings;

my $file = $ARGV[0];
die "usage: $0 <filename>" unless defined $file;
open(IN, "<$file") or die "Can't read $file: $!";
my $count = 0;
my $out = "";
while (<IN>) {
        s/no_access/(++$count % 3 == 0)?"read":$&/ge;
        $out .= $_;
}
close(IN);
open(OUT, ">$file") or die "Can't write $file: $!";
print OUT $out;
close(OUT);