在Perl

Question

使用未初始化值警告我有下面的代碼行，

foreach ($abc) { 
    my ($match) = $_ =~ /([0-9]{5}(?!.*([0-9]{5})))/; 
    $zipCode_count{$match} += 1 if $match ne ''; 
} 

當我執行它

，它不斷拋出這樣的警告：

字符串NE使用未初始化值$比賽at parseZipCode.pl line 8，line 51.

我該如何擺脫它？謝謝

Answer 1

$match將undef如果正則表達式匹配失敗。 $match不可能是空字符串。

建議的修復：跳過循環如果匹配failes：

my ($match) = /(...)/ or next; 
$zipCode_count{$match}++; 

可替換地，狀態改變到

$zipCode_count{$match}++ if defined $match; 

附加說明：

• 增量++是通常在優選+= 1。
• 一個正則表達式默認
• zipCode_count匹配agains $_是一個非常可怕的變量名 - 要麼使用camelCase或snake_case，但請不都在同一時間！