初学perl：cgi，关于登录验证，求助～～～

ancery

　　ｒｔ，意图是从param获取用户名和密码并到事先准备好的mysql里去验证，但是却总是无法得到正确的输出，程序如下，请大家帮忙看看到底是哪儿的问题捏，谢谢～～～

#!/usr/bin/perl -w

use strict;
use CGI qw(:standard);
use DBI;

my $name=param('logname');
my $pass=param('logpass');

print header();

my $dbh=DBI->;connect('DBI:mysql:mydata', 'root', 'root') or die "Cannot connect to database:" . DBI->;errstr;
my $sth=$dbh->;prepare("select *  from log_db where name=$name and pass=$pass";
$sth->;execute() or die "error:" . $sth->;errstr;

if ($sth) {
        print "Ok, you've logged in!!!";
} else {
        print "You have typed wrong name or pass!!!";
}

$dbh->;disconnect;

笨狗

连错误消息都没有

Qiang

请先学会怎么自己调试程序。然后在来问问题。
Brian 的 Perl 问题之万能指南 http://xrl.us/gbq4

ancery

问题解决了，谢谢楼上两位，我会努力的～～～：）