在Perl中修整回车符(r)
我在这里有一段简单的代码:
foreach my $key (keys %$structure)
{
$key =~ s/r?$//;
$structure->{$key} =~ s/r?$//;
}
这是我的修剪功能的一部分,它接受对对象的引用。这个对象(在我们的例子中是一个散列)之前是从键盘初始化的。
问题是每个类型参数的末尾都有一个 r,这对于输出结构来说不是很酷。即使我试图用正则表达式替换 r,它也行不通。这是为什么?
我在这里有一段简单的代码:
foreach my $key (keys %$structure)
{
$key =~ s/r?$//;
$structure->{$key} =~ s/r?$//;
}
这是我的修剪功能的一部分,它接受对对象的引用。这个对象(在我们的例子中是一个散列)之前是从键盘初始化的。
问题是每个类型参数的末尾都有一个 r,这对于输出结构来说不是很酷。即使我试图用正则表达式替换 r,它也行不通。这是为什么?