Perl 学习笔记 --- 16

jingshen

第16章：一些高级的技术
16.1 利用eval捕获错误
　　防止某程序块，促使程序崩溃。
　　其形式如下：
　　eval{expression};
16.2 使用grep在列表得到元素
　　其形式如下：
　　@ArrayName = grep{expression} 0..n
　　例如：
　　my @odd_numbers = grep {$_%2} 1..1000
　　相当于：
　　my @odd_numbers;
　　foreach(1..1000) {
　　push@odd_numbers, $_, if $_ % 2;
　　}
16.3 使用map对列表项进行交换
　　其形式如下：
　　@ArrayName = map{expression}@arrayName
　　例如：
　　my @data = (4.75, 1.5, 2, 1234, 6.9456,12345678.9, 29.95);
　　my @formatte_data = map{&big_money($_)} @data;
　　等同于：
　　my @data = (4.75, 1.5, 2, 1234, 6.9456,12345678.9, 29.95);
　　my @formatted_data;
　　foreach (@data) {
　　push@formatte_data, @big_money($_);
　　}
　　sub big_money {
　　my$number = sprintf “%.2f”,shift @_;
　　1while $number =~ s/^(-?\d)(\d\d\d)/$1,$2/;
　　$number=~ s/^(-?)/$1\$/;
　　$number;
　　}
16.4 不用双引号的hash keys
　　不建议使用。
16.5 Slices
16.5.1 Array Slice
　　对一个列表做索引。
　　例如：
　　my ($card_num, $count) = (split /:/)[1,3,5];
　　上述索引值将元素1、3和元素5从列表中取出，将他们按照3个元素的列表值返回。

-----------------------------------------------------------------------------------------------

全书，完毕！

本人已把此学习笔记上传“我的资源”（CSDN）上，有需要可以下载学习！

-----------xiaobin--- 2012.2.26

------------------------------------------------------------------完美的分割线----------