Perl替代品从右到左

Question

我有一个字符串：

test1.domain.com.test1.domain.com

我想在右侧替换字符串domain.com以获得结果：

test1.domain.com.test1

使用Perl字符串替换模式时

myString = "test1.domain.com.test1.domain.com";
replacedString = "domain.com";
resultString = null;
Perl5Util perl=new Perl5Util();
resultString =perl.substitute("s/." + replacedString + "//o",myString );

但是，Perl用结果从左到右替换字符串“ domain.com”

test1.test1.domain.com

有什么办法可以改变行为吗？

Answer 1

将字符串的末尾与$匹配。

perl.substitute("s/." + replacedString + "$//o",myString );

你可能应该逃避那个. 同样，因为. 匹配任何字符。 您可能需要两个反斜杠（ \\\\. ），否则Java字符串会将其视为特殊字符。 如果您不想逃脱. 您使用字符选择语法[.] 。

perl.substitute("s/\\." + replacedString + "$//o",myString );