Perl未初始化的值錯誤

Question

我寫了下面這段代碼來嘗試在hashref中打印出值。 hashref來自DBI $statement->fetchrow_hashref()方法。

我想使用"string + $variable"鍵來訪問元素的值。當我運行的代碼，我得到了以下錯誤：

Use of uninitialized value $value in string eq at main.pl line 19.

我以爲我嘗試使用它之前檢查的價值，所以我不知道怎麼回事，以趕上元素test3是空的。

use strict; 
use warnings; 

# list is actually a hashref from DBI query 
my $list = {"test1" => 'true=yes', "test2" => 'false=no', "test3" => ''}; 
my $value = ""; 

my_function($list); 

sub my_function { 

    my ($list) = @_; 

    # Loop through values 
    foreach my $i(1..6) { 

     $value = $list->{"test$i"}; 

     if(undef $value || $value eq "") { 
      next; 
     } 

     my ($k, $v) = split('=', $value); 

     print "$k = $v\n"; 
    } 
} 

此外，我很好奇hashref和常規散列之間的區別。

Answer 1

致電undef $value套$value至undef。

您需要使用defined代替，這樣

if (not defined $value or $value eq "") { 
    next; 
} 

或

next unless defined $value and $value ne ''; 

還要注意的是，只有Perl的假值除了undef和空字符串是零值和字符串"0"，所以排除所有這些的最簡單的方法只是

next unless $value; 

但在你的情況下，這也會排除像test4 => 0和test5 => '0'這些你可能不想要的元素。