Perl / Regex - 用逗号后替换字符

Question

我需要使用Perl或Regex

来帮助使用字符串操纵器

我需要在“，”之后用“l”替换“g”字符

在

testWord1,go

在

testWord1,lo

实现这一目标的最佳方式是什么？

Answer 1

你可以使用积极的lookbehind：

(?<=,)g

匹配前面带有“，”的“g”。

以下是演示：

~$ echo testWord1,go | perl -ne 's/(?<=,)g/l/g; print;'
testWord1,lo

Answer 2

在perl脚本中使用

s/,g/,l/g

• s（第一个）：替代
• g（最后一个）：全球

Answer 3

Perl：

my $str = "testWord1,go";
$str =~ s/,g/,l/;
print $str, "\n";

输出：

testWord1,lo