如何在每场比赛前添加一个字符串？

Question

如何将单词 info 添加为前导，只要单词匹配 zzzz 与正则表达式？

喜欢infozzzz

#!/usr/bin/perl 

$string = " zzzz  mike  zzzz stone zzzz";
$string =~ m/zzzz/;

Answer 1

像这样使用替换运算符：

$string =~ s/(zzzz)/info/g;

或者简单地说：

$string =~ s/zzzz/info$&/g;

$variable =~ s/PATTERN/REPLACEMENT/g; : 在 $variable.
中将 PATTERN 替换为 REPLACEMENT (zzzz) : 匹配文字串zzzz，使用括号捕获到捕获变量</code>.<br /> <code>$& ：捕获包含整个匹配的 PATTERN.
的变量 /g : 告诉重复匹配模式的正则表达式修饰符。

另见：
perldoc perlre: Perl regular expressions (regexes)
perldoc perlre: Perl regular expressions (regexes): Quantifiers; Character Classes and other Special Escapes; Assertions; Capture groups
perldoc perlrequick: Perl regular expressions quick start

如何在每场比赛前添加一个字符串？

How can I add a string before every match?

regex

perl