Learning Perl 学习笔记 Ch17 高级Perl技巧

1 Perl中的eval代码块可以提供类似Java中try-catch块的功能:在代码块的错误会被捕获,且不会导致程序异常退出。

eval { $result = $number / $zero }; #别忘了在最后加上分号
print "The exception cathed: $@" if $@;

如果在eval的代码块内部发生了错误,Perl就会设置$@变量,放入具体的错误信息,否则$@变量就为空,这在条件判断中刚好是false。
eval代码块可以嵌套,但是最内层的eval块会捕获所有异常。
eval的返回值就是代码块最后一行的执行结果——和所有代码块一样,可以在块内定义局部变量。


2 Perl有一组对列表的便利操作,分别是grep筛选,map替换和切片。
grep的作用场景是:遍历列表找出符合条件的元素,这通常可以用foreach结构实现:

foreach (@array){
  push @odd, $_ if $_ % 2;
}

但是grep要简单一些:my @odd = grep {$_ % 2} @array;,而且如果过滤条件足够简单,也可以进一步简化,省掉花括号:my @odd= grep $_ % 2, @array


map的功能是按一定的规则替换掉列表中原来的元素,就像函数把x值变为y值一样。同样可以用foreach结构写出一个复杂版本:

foreach (@array){
  push @new_array, &sub_function($_);
}
@array = @new_array;

@new_array的唯一作用就是临时存储结果。map可以简化这个郭城:@new_array = map {&sub_function($_)} @array


切片的作用是从数组中截取一部分元素,我们已经知道形如$array[0]可以获取数组的第一个元素,形如@sub_array = @array[0,1,3,5,-1]切片就可以返回一个新的列表,里面有五个元素是原数组第1给、2、4、6和最后一个元素。
如果要对列表切片(也就是没有声明数组变量直接切片),可以直接这样写@new_array = (split /:/)[3, 4]这将把$_:切成列表,然后返回第四和第五个元素组成的列表,圆括号在这里起到的作用就是声明这是一个列表。
切片最重要的意义在于,@表明了列表上下文,就像Perl中其他有趣的特性一样,上下文决定了Perl具体的行为,这里的意思就是我想要一个列表,请给我一个列表。这和$表明一个标量上下文的作用差不多。


3 哈希支持裸词作为键,所谓裸词,就是仅包含字母、数字和下划线且不以数字开头的字符串,不需要加引号就可以使用:

if($name_age_hash {tom} == $name_age_hash {"tom"}){
  print "They are equal!";
}

上一次见到裸词,还是在哈希表初始化时的胖箭头=>

%name_age_hash = {
  john => 25,
  tom => 32,
  lucy => 28,
}

哈希也支持切片:

@man = @name_age_hash {qw /john tom/};

哈希切片接收一个键列表,然后返回他们对应的值列表。这里在哈希名字前使用@也是为了声明列表上下文。

你可能感兴趣的:(Learning Perl 学习笔记 Ch17 高级Perl技巧)