的Perl /正则表达式 - 逗号

Question

我需要或者使用Perl或正则表达式

我需要后，以取代“G”字符的字符串操纵帮助后，更换字符“”有‘L’

之前

testWord1,go 

后

testWord1,lo 

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

Answer 1

您可以使用正回顾后：

(?<=,)g 

它是由一个 “” 前面有 “G” 相匹配。

这里有一个演示：在perl脚本

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

Answer 2

使用

s/,g/,l/g 

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

Answer 3

在Perl：

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

输出：

testWord1,lo