eval 捕获错误

来源：互联网发布：编程原本 pdf下载编辑：程序博客网时间：2024/06/10 16:01

eval 捕获错误:[root@dr-mysql01 ~]# cat t1.pl use DBI;my $dbUser='zabbix';my $user="root";my $passwd="1234567";my $dbh  = DBI->connect("dbi:mysql:database=zabbix;host=192.168.32.55;port=3306",$user,$passwd) or die "can't connect to database ". DBI-errstr;eval {#alter table trends drop partition p20160425;my $sql="alter table history  drop partition p20160501;";print "\$sql is $sql\n";$dbh->do("$sql");    };      print $@;[root@dr-mysql01 ~]# perl t1.pl $sql is alter table history  drop partition p20160501;[root@dr-mysql01 ~]# cat t1.pl use DBI;my $dbUser='zabbix';my $user="root";my $passwd="1234567";my $dbh  = DBI->connect("dbi:mysql:database=zabbix;host=192.168.32.55;port=3306",$user,$passwd) or die "can't connect to database ". DBI-errstr;eval {#alter table trends drop partition p20160425;my $sql="alter table history  drop partition p20160401;";print "\$sql is $sql\n";$dbh->do("$sql");    };      print $@;[root@dr-mysql01 ~]# perl t1.pl $sql is alter table history  drop partition p20160401;DBD::mysql::db do failed: Error in list of partitions to DROP at t1.pl line 10.

0 0