什麼是解決這個錯誤對一個未定義的值不能調用方法「fetchrow_array」正道

Question

下面是我使用的腳本的Perl代碼要在運行crontab

if($enable_family_members==0) 
{ 
    my $sql="select name from test where testid IN (". join(',', @set) . ')'; 
    my $sth = $dbh->prepare($sql); 
    $sth->execute or die "SQL Error: $DBI::errstr\n"; 
} 

while (my ($name)=$sth->fetchrow_array()) 
{ 
    print "name: $name"; 
} 

當我嘗試運行這個腳本我得到一個錯誤Can't call method "fetchrow_array" on an undefined value at line 9。當我嘗試使用our關鍵字而不是my關鍵字在$ sth中，我不會收到錯誤。什麼是解決這個錯誤的正確方法。

Answer 1

您的$sth變量僅在if塊內可見。嘗試：

if($enable_family_members==0) { 
    my $sql="select name from test where testid IN (". join(',', @set) . ')'; 
    my $sth = $dbh->prepare($sql); 
    $sth->execute or die "SQL Error: $DBI::errstr\n"; 
    while (my ($name)=$sth->fetchrow_array()) { 
     print "name: $name"; 
    } 
}