使用未初始化值的fetchrow後（）

Question

我運行：

my $config = ""; 
my $dsn = "dbi:SQLite:dbname=test.db"; 
my $dbh = DBI->connect(   
    $dsn, 
    "", 
    "", 
    { RaiseError => 1} 
) or die $DBI::errstr; 

my $sth = $dbh->prepare("SELECT config FROM tests WHERE status=1"); 
$sth->execute();  
my $config = $sth->fetchrow(); 
if($config ne "") 
{ 
    print "found!" 
} 
$sth->finish(); 
$dbh->disconnect(); 

爲什麼我越來越

Use of uninitialized value $config in string ne at ..... 

Answer 1

沒有記載fetchrow。您應該使用fetchrow_array。

問題是，DBI返回值undef設置爲NULL在數據庫中的值。所以my $config = $sth->fetchrow_array套$config到undef要麼是否有表，或如果發現該行有一個config的NULL值找不到匹配的行。這意味着它不能用於測試表中是否有任何匹配的行。此外，你不能比較的undef價值，如果它是一個字符串 - 它會引發錯誤你看到

Use of uninitialized value $config in string ne 

，所以你需要測試fetchrow_array是否返回一個空列表，或者如果fetchrow_arrayref返回一個未定義的值。

您的代碼應該是`使用嚴格的兩種

my @config = $sth->fetchrow_array; 
if (@config) { 
    print "found!" 
} 

或

my $config = $sth->fetchrow_arrayref; 
if (defined $config) { 
    print "found!" 
}