是否有正则表达式来删除Perl中的尾部斜杠？

Question

我想从字符串中删除尾部斜杠.例如,如果我有一个名为$ test ="test /"的字符串.我怎么能在最后删除斜线？

Answer 1

用正则表达式做: $test =~ s/\/$//

或者,如果你确定最后一个字符是斜线,你可以使用chop函数:chop $test

Answer 2

如果你确定最后有一个/最后你可以使用chop功能:

$test = "test/";
$test = chop($test);

如果你不确定你能做到:

$test = "test/";
$test = $1 if($test=~/(.*)\/$/);

Answer 3

您可以使用s///替换运算符:

$test =~ s{/\z}{};

Answer 4

就个人而言,我会改写这个以避免"\"和"/"的混合

$test =~ s|/$||

如果你使用"|" 你不需要引用"/"