在Perl中修整回车符(r)

我在这里有一段简单的代码:

foreach my $key (keys %$structure)
{
    $key =~ s/r?$//;
    $structure->{$key} =~ s/r?$//;
}

这是我的修剪功能的一部分,它接受对对象的引用。这个对象(在我们的例子中是一个散列)之前是从键盘初始化的。

问题是每个类型参数的末尾都有一个 r,这对于输出结构来说不是很酷。即使我试图用正则表达式替换 r,它也行不通。这是为什么?

以上是在Perl中修整回车符(r)的全部内容。
THE END
分享
二维码
< <上一篇
下一篇>>