我有一个字符串需要检查最后两个字符。如果发现最后两个字符符合我的要求，我需要截断字符串，否则保留字符串原样。我知道可以使用控制条件来完成，但我想知道 perl 中是否有任何单个语句可以真正实现这一点。还建议任何更好的方法。
例子:
$str = "Hello";
所以如果最后两个字符是“tr”，我想截断字符串，但在这种情况下我们需要保留原始字符串，因为最后两个字符不是“tr”
最佳答案
Perl 的替换运算符 s/// 在这里很理想。 \z 匹配字符串结尾，但不匹配行尾。
$str =~ s/tr\z//;
关于string - 如何使用 Perl 根据条件修改字符串的最后两个字符，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/10509827/