使用未初始化值的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!" 
}