匹配零與字符串:: Substitution

Question

我試圖匹配一個數字與String::Substitution;如果數字不爲零，它工作正常。如果數字爲零，則替換空字符串而不是數字。例如：

use strict; 
use warnings; 

use Data::Dump; 
use String::Substitution; 

my @data = qw(0 1); 
for (@data) { 
    my $str = $_; 
    my $regex = qr/(\d)/; 
    my $replace = '$1'; 
    my $result_str = String::Substitution::gsub_copy($str, $regex, $replace); 
    my @m = $str =~ /$regex/g; 
    dd $result_str; 
    dd @m; 
} 

輸出是：

"" 
0 
1 
1 

預期輸出是：

0 
0 
1 
1 

Answer 1

爲了避免 「未初始化」 的警告，該模塊的1.001版本試圖未定義佔位符轉換成空弦。然而，它錯誤地使用真值測試而不是定義的測試來確定用空字符串替換哪些值。

map { ($$_) || '' } (1 .. $#-) 

代碼需要改爲

map { defined($$_) ? $$_ : '' } (1 .. $#-) 

的bug報告已經submitted。