Perl 学习笔记 --- 16

 

第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

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