第十七章 高级PERL技巧

用eval 捕获错误

有时看上去平淡无奇的代码却能导致严重错误,以下的这些典型语句都能让程序崩溃:

eval 这块代码真的诱发了常见错误,就会停止运行,但不至于使程序崩溃.  




1.程序崩溃,下面的没在继续执行 
[oracle@dwh1 dbi]$ cat 1.pl 
{$var = 2 / 0;  
};  
print "An error occurred: $@" if $@;  
print "bbbb\n";  


[oracle@dwh1 dbi]$ perl 1.pl 
Illegal division by zero at 1.pl line 1.



  
[oracle@dwh1 dbi]$ cat 1.pl 1.pl   

2.程序没有崩溃,继续运行
[oracle@dwh1 dbi]$ cat 2.pl 
eval{$var = 2 / 0;  
};  
print "An error occurred: $@" if $@;  
print "bbbb\n"; 

[oracle@dwh1 dbi]$ perl 2.pl 
An error occurred: Illegal division by zero at 2.pl line 1.
bbbb

  
  
  
用grep 来筛选列表:


取出所有的奇数:
[oracle@dwh1 dbi]$ cat 6.pl 
my @odd_number;
foreach (1..10000){
 push @odd_numbers,$_ if $_ % 2;
}
print "\@odd_numbers is @odd_numbers\n";


[oracle@dwh1 dbi]$ perl 6.pl 
@odd_numbers is 1 3 5 7 9 11 


grep 操作符对列表的每个元素算出代码块的值,好像之前版本的foreach 循环做的那样。

代码块计算结果为逻辑真的那些元素,将会出现在grep操作符返回的列表里。

[oracle@dwh1 dbi]$ cat 7.pl 
my @odd_numbers = grep { $_ % 2}1..10000;
print "\@odd_numbers is @odd_numbers\n";
[oracle@dwh1 dbi]$ perl 7.pl
@odd_numbers is 1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109 111 113 115 117 119 121 123 125 127 129 131 133 135 137 139 141 143 145 147 149 151 153 155 157 159

map 用于构建新的数组:

第十七章 高级PERL技巧