eval 捕获dbi错误

来源：互联网发布：数据库实例 schema关系编辑：程序博客网时间：2024/05/19 20:41
[root@dr-mysql01 ~]# cat t2.pl use DBI;my $dbUser='zabbix';my $user="root";my $passwd="1234567";my $TABLE_NAME='history_uint';my $date='201605';my $dbh  = DBI->connect("dbi:mysql:database=zabbix;host=192.168.32.55;port=3306",$user,$passwd,{RaiseError => 1}) or die "can't connect to database ". DBI-errstr;my $hostSql = qq{select TABLE_NAME,PARTITION_NAME from INFORMATION_SCHEMA.PARTITIONS where TABLE_NAME='$TABLE_NAME' and PARTITION_NAME like "p$date%";};print "\$hostSql is $hostSql\n";my ($a1, $a2);#if ($a1){my $selStmt = $dbh->prepare($hostSql);$selStmt->execute();$selStmt->bind_columns(undef, \$a1,\$a2);print "\$a1 is $a1\n";print "\$a2 is $a2\n";print $selStmt->fetch();print "\n"; eval {$selStmt->fetch()};print "\$@ is $@\n";;print "\n";[root@dr-mysql01 ~]# perl t2.pl $hostSql is select TABLE_NAME,PARTITION_NAME from INFORMATION_SCHEMA.PARTITIONS where TABLE_NAME='history_uint' and PARTITION_NAME like "p201605%";$a1 is $a2 is ARRAY(0x2324778)$@ is [root@dr-mysql01 ~]# cat t2.pl use DBI;my $dbUser='zabbix';my $user="root";my $passwd="1234567";my $TABLE_NAME='history_uint';my $date='201604';my $dbh  = DBI->connect("dbi:mysql:database=zabbix;host=192.168.32.55;port=3306",$user,$passwd,{RaiseError => 1}) or die "can't connect to database ". DBI-errstr;my $hostSql = qq{select TABLE_NAME,PARTITION_NAME from INFORMATION_SCHEMA.PARTITIONS where TABLE_NAME='$TABLE_NAME' and PARTITION_NAME like "p$date%";};print "\$hostSql is $hostSql\n";my ($a1, $a2);#if ($a1){my $selStmt = $dbh->prepare($hostSql);$selStmt->execute();$selStmt->bind_columns(undef, \$a1,\$a2);print "\$a1 is $a1\n";print "\$a2 is $a2\n";print $selStmt->fetch();print "\n"; eval {$selStmt->fetch()};print "\$@ is $@\n";;print "\n";[root@dr-mysql01 ~]# perl t2.pl $hostSql is select TABLE_NAME,PARTITION_NAME from INFORMATION_SCHEMA.PARTITIONS where TABLE_NAME='history_uint' and PARTITION_NAME like "p201604%";$a1 is $a2 is DBD::mysql::st fetch failed: fetch() without execute() at t2.pl line 19.$@ is DBD::mysql::st fetch failed: fetch() without execute() at t2.pl line 19.
1 0