讨论：关于perl的捕获错误的机制

kevin1013

请大家介绍一下perl里面捕获错误的机制吧，除了eval外，还有没有其他的办法？
另外关于eval的具体用法，有没有什么详细的介绍
我发现有些错误eval是无法捕获的，例如：
my $dbh = DBI->connect("dbi:ODBCdsnname",$user,$pwd)
my $sth = $dbh->prepare($sqlstatement);
$sth->execute();
while (my @data = $sth->fetchrow_array())
{
push @returnlist,join("\t",@data);
}
在执行以上操作如果出错，如，数据库帐号密码错误，或者其他网络原因，或者，sql语句执行有问题，程序就中止了，eval好像不起作用。
请教有什么好方法可以捕获以上错误呢？
谢谢！

apile

$DBI::errstr($dbh->errstr) print出来看看....
eval不是万能的.....eval的error存在$@里面....重点是你要有stderr产生..
才会存在$@..
所以上面应该写成

my $dbh = DBI->connect("dbi:ODBCdsnname",$user,$pwd) || die $DBI::errstr;
这样eval就抓得到了...