如何使用Perl根據條件修改字符串的最後兩個字符

Question

我有需要檢查最後兩個字符的字符串。如果找到最後兩個字符與我的要求匹配，我需要截斷字符串，否則將字符串保持原樣。我知道它可以使用控制條件來完成，但是我想知道在perl中是否有任何實際可以實現的單個語句。還建議任何更好的方法來做到這一點。

例子：

$str = "Hello"; 

因此，如果最後兩個字符是說「TR」，我想截斷字符串，但在這種情況下，我們需要離開的字符串作爲原來，作爲最後一個字符不是「tr」

Answer 1

Perl的替代運算符s///在這裏很理想。 \z匹配字符串的結尾，但不匹配行尾。

$str =~ s/tr\z//;