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 );