Perl 几个技巧

其实就是把小骆驼第五版的17章做了个中文摘要，这些高级技巧常常忘记，写一写希望能帮助自己加深记忆。 1. 用eval获得程序的执行错误 $a = 10; $b = 0; $c = $a/$b; 会发生什么？ 程序会crash,因为有浮点数异常。用eval就可以做到两全，既执行语言，又能在出现异常的时候不crash $a = 10; $b = 0; eval {$c = $a/$b}; eval { ... }可以捕获执行的多条语句的错误结果。 然后用$@可以得到错误原因。 #!/usr/bin/perl $a = 10; $b = 0; eval {$c = $a/$b}; if ($@) { ??? print "There was a error ($@)/n"; }else { ??? print "The result = $c/n"; } 2. 用grep从列表里选取数据 比如， 从1到100中取出所有的奇数 #!/usr/bin/perl my @odds = grep { $_ % 2 } 1..100; print "$_ " foreach @odds; 3.用map传递列表的值 比如你已经有了一个列表，如何把列表的每个值作为key建立一个hash? #!/usr/bin/perl use Data::Dumper; my @array = (a,b,c); my %hash = map { $_ => 1 } @array; print "hash:? ".Dumper(/%hash); grep和map有点类似，都是把list的值一一拿出来放进$_，然后执行BLOCK {}中的语言，区别在于： grep： 返回在BLOCK{}中最后一句执行结果为真的$_ map： 返回在BLOCK{}中最后的一句 4. 选取list中的部分元素 my @array = (a,c); my @new = @array[ 0,2]; @new中将包含a和c 5. 选取hash中的部分元素 my @three_scores = ($score{"barney"},$score{"fred"},$score{"dino"}); my @three_scores = @score{ qw/ barney fred dino/ };