的Perl DBI选择提供使用bind_columns

Question

我有此Perl代码错误值：

my $cmd = " 
    SELECT COUNT(id) 
    FROM tblUsers 
    WHERE UPPER(username) = UPPER(?) AND password = ? 
"; 

db_connect(); 
my $sql = $dbh->prepare($cmd); 

my $count = 2; 

$sql->execute(
    $args{login_username}, 
    crypt($args{login_password}, $args{login_username}) 
) or die "SQL Error: ".$sql->errstr; 

$sql->bind_columns(\$count); 
$sql->fetch; 

其返回0，但应当返回一个1

如果我输出以下：

$msg = "wrong username/password: $count;$args{login_username};$args{login_password};" . crypt($args{login_password}, $args{login_username}); 

我收到：

wrong username/password: 0;skeniver;password;skh9dtk2bCasY 

和crypt部分正是我在数据库中的部分。在MySQL中运行相同的值将返回1的计数。

我真的不知道这里出了什么问题。

其他人看到我失踪的东西吗？

Answer 1

假设你select返回非0值，并假设在tblUsers列password有skh9dtk2bCasY为username = skeniver，尝试

$sql->execute($args{login_username}, crypt($args{login_password},$args{login_username})) 
     or die "SQL Error: ".$sql->errstr; 
$count = $sql->fetchrow_array(); 

或者，如果该查询返回多行的可能性则 -

$sql->execute($args{login_username}, crypt($args{login_password},$args{login_username})) 
     or die "SQL Error: ".$sql->errstr; 
while (($count) = $sql->fetchrow_array()){       
    print "Count is: $count\n"; 
}