我想用数字替换文本文件中的标记。令牌是“<count>”，我希望将其替换为到目前为止的计数。例如：
This <count> is a <count> count.
The <count> count increases <count><count><count>.
<count><count><count><count><count><count>
变成：
This 1 is a 2 count.
The 3 count increases 456.
789101112
我不太确定该怎么做，也许有一些循环？
my $text = (the input from file, already taken care of in my script);
my $count = 1;
while( regex not found? )
{
$text =~ s/<count>/($count);
$count ++;
}
【问题讨论】：
my $text = "whatever";
my $count = 1;
$text =~ s/<count>/$count++/ge;
应该为你做。替换结束时的 /e 会有所不同。
【讨论】：
这是一个 procFile 脚本，可以满足您的要求：
$val = 1; # Initial change value.
while (<STDIN>) { # Process all lines.
chomp; # Remove linefeed.
$ln = $_; # Save it.
$oldln = "x" . $ln; # Force entry into loop.
while ($oldln ne $ln) { # Loop until no more changes.
$oldln = $ln; # Set lines the same.
$ln =~ s/<count>/$val/; # Change one occurrence if we can.
if ($oldln ne $ln) { # Increment count if change was made.
$val++;
}
}
print "$ln\n"; # Print changed line.
}
您使用cat inputFile | perl procFile 和您的示例文件运行它：
This <count> is a <count> count.
The <count> count increases <count><count><count>.
<count><count><count><count><count><count>
生成：
This 1 is a 2 count.
The 3 count increases 456.
789101112
【讨论】：
这是另一种使用位置扫描的方法。
它使用 \G 位置引用来匹配行的开头或上一个匹配之后的位置。
#!/usr/bin/perl
use strict; # always strict + warnings
use warnings;
my $count = 1; # start at 1;
while ( my $line = <STDIN> ) { # read stdin
while ( $line =~ /\G.*?(<count>)/g ) { # scan left to right and pick out one <count> at a time.
substr( $line, $-[1], $+[1] - $-[1], $count++ ); # replace the substring and increment
}
print $line;
}
它的功能几乎与发布的 regex-eval 解决方案相同，只是它在没有 eval 的情况下工作。我之前发布了一些反评估的恐惧，但它只是来自其他较小语言的 FUD 并没有安全地进行评估。
/e 方式有效地做到了这一点：
replace_callback( \$input, $regex, sub{
return $count++;
});
（其中替换回调是一个完成所有工作的臃肿函数）
这真的像鸡蛋一样安全，只是不明显它是否安全。
【讨论】：