对字符串执行正确的修剪

Question

我正在尝试使用正则表达式在Perl中执行相当于简单的右边修剪。

我将'1445:'赋值给字符串$test，我试图从最后修剪冒号。

我有以下代码尝试修剪冒号，但代码$test仍然设置为'1445:'。任何人都可以建议问题在这里吗？

my $test = '1445:';
$test =~ s/:$//;

Answer 1

这不是您运行的代码，因为它可以运行。

$ perl -e'
    my $test = "1445:";
    $test =~ s/:$//;
    print "$test\n";
'
1445

您运行的代码中包含的$test可能不同。检查

use Data::Dumper;
local $Data::Dumper::Useqq = 1;
warn(Dumper($test));