perl脚本之如何捕获错误，并跳过错误执行？？？

gly896420885

内容如题，我写的是一个perl脚本，使用dbi实现顺序连接多个远程主机上的oracle和mysql，查询指定信息，并将结果写入到本地mysql库中，但有些主机或是没起监听，也可能用户名密码不对等错误，但我想能够捕获该主机错误信息，同时跳过该错误，执行后面的内容，该如何做？？？求大家帮忙引导一下。

gly896420885

gly896420885 发表于 2013-01-16 10:20
内容如题，我写的是一个perl脚本，使用dbi实现顺序连接多个远程主机上的oracle和mysql，查询指定信息，并将 ...

我的代码内容如下
host 1
my $dbh =DBI->connect(oracle);
my $sql1=qq{select max() from t1};
my $ora_sth=$dbh->select_array($sql1);

my $dbh =DBI->connect(mysql);
my $sql1=qq{select max() from t2};
my $my_sth=$dbh->select_array($sql1);

my $dbh =DBI->connect(mysql);
my $sql1=qq{insert into t3 values('',$ora_sth1)};
my $sql1=qq{insert into t3 values('',$my_sth1)};
my $tar_my1 = $dbh->do();
my $tar_my1 = $dbh->do();

host 2
my $dbh =DBI->connect(oracle);
my $sql1=qq{select max() from t1};
my $ora_sth=$dbh->select_array($sql1);

my $dbh =DBI->connect(mysql);
my $sql1=qq{select max() from t2};
my $my_sth=$dbh->select_array($sql1);

my $dbh =DBI->connect(mysql);
my $sql1=qq{insert into t3 values('',$ora_sth1)};
my $sql1=qq{insert into t3 values('',$my_sth1)};
my $tar_my1 = $dbh->do();
my $tar_my1 = $dbh->do();

host 3
……如果主机1有错误，如何捕获，然后跳过主机1，执行主机2

bikong0411

eval结合$@,或者用try/catch module

gly896420885

谢谢，我用eval已经实现我的需求，刚刚接触，还需前辈们指导指导回复 3# bikong0411