请教前辈，Perl 的报错机制是什么，详细点进来看

hu_zhuang163

很简单，一个 for程序，循环向mysql数据库插入10条数据，如果第5条数据有问题，它会在控制台报告哪里有问题，然后继续执行下面的插入程序，我的疑问是，难道不是出错了就停止吗？

-----------再次修改
我查询得知  perl 的异常处理有die、warn、eval函数
如果我在执行插入语句时 加上
my $sthInsert = $dbh_laya->prepare($insertSql) or die DBI->errstr;
                                                $sthInsert->execute() or die DBI->errstr;

程序应该就会停止循环并输出错误信息，对吗

1. 
   
2. #!/user/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. use 5.010;
   
6. use Encode;
   
7. use  utf8;
   
8. use DBI;
   
9. 
   
10. sub insertDataBase {
    
11. 
    
12.                   my $dbh_laya = DBI->connect( "DBI:mysql:$DBName:$DBPort", "$DBUserName", "$DBPassWord" ) or die DBI->errstr;
    
13. 
    
14.                       foreach my $placement (sort keys %allBidHash) {
    
15.                                
    
16.                                 my $bidType="1";
    
17.                                 my $bidSize="1";   
    
18.                                 my $bidScreen="1";
    
19.                                 my $bidURL="1";
    
20.                                 #数据库操作
    
21.                        
    
22.                                my $insertSql="insert into advertising_baidu (pid,size, refer_url,type,position,time)  values('$placement','$bidSize','$bidURL','$bidType','$bidScreen',now())";
    
23.                                                  my $sthInsert = $dbh_laya->prepare($insertSql);
    
24.                                                 $sthInsert->execute();
    
25.                                        
    
26.                 }
    
27. 
    
28.                 $dbh_laya->disconnect();
    
29. 
    
30. }
    

复制代码

bikong0411

错误级别不一样

tmp

楼主需要看看DBI文档, connect的时候可以射一些属性