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/};

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