如何使用Perl修剪字符串的最后部分？

Question

我需要在这里修剪字符串的最后一部分。我的字符串是：abc|bcd|cde|。

我需要摆脱最后| ... trim()命令没有帮助，因为某些原因可能是我使用它错了，请帮助...谢谢。

Answer 1

这可以通过简单的替换来完成。

my $string = "abc|bcd|cde|";
$string =~ s/\|$//;

Answer 2

使用chop：

my $string = "abc|bcd|cde|";
chop($string);
say $string;

<强>输出：

abc|bcd|cde

来自doc：

  

删除字符串的最后一个字符并返回该字符   切碎的。它比s /.$// s更有效，因为它既不是   扫描或复制字符串。如果省略VARIABLE，则切换$ _。如果   VARIABLE是一个哈希值，它会删除哈希值，但不会键入哈希值。