小编ben*_*uth的帖子

在Perl中,是否可以任意结束map执行,例如last在循环中等效的东西？

它有点像这样:

map {
    if (test == true) { last; } dosomething
} @myarray

也许这是一个愚蠢的问题但是:
我运行perl 5.8.8并且我需要替换任何前面带有数字的下划线,"0".

跑步:

 $var =~s /(\d)_/$10/g; 

而且,作为运行perl5.8,我做不到

$var=~s/(?<n1>\d)\_/$+{n1}0/g;

任何的想法 ？
提前致谢