perl Summary

perl summary


1. 脱引用(dereference)并不是只能用在引用上，返回引用的函数也能使用。如：
sub foo { my $a = 10; return \$a; }
print ${foo()}; # 返回10
print “${foo()}”; # 甚至在字符串替换中也能用！
2. 两个相邻的下标之间可以省去 -> 。如：
print $sue{children}->[1]->{age};
print $sue{children}[1]{age}; # 与上一条语句相同
3. 将字符串当作变量名的行为叫做符号引用：
$a = “x”; $x = 10; print $$a # 输出10
注意符号引用只能引用到全局变量，用my声明过的就引用不到了。使用use strict可以禁止符号引用。
4. 模拟二维数组(参考第2条):
$array = ( [1, 2], [3, 4] ); print $a[1][0];
5. 类型团（typeglob）：只有全局变量才有typeglob，用my声明的词法变量不在typeglob内。 可以通过typeglob赋值来给变量添加别名：
@a = (1, 2, 3);
*b = *a; # 现在@b = (1, 2, 3)
引用可以赋值给typeglob，因此可以有以下用法：


选择性别名：
*b = \$a; # 这样 $b 是 $a 的别名，但@b 不是 @a的别名
常量
*PI = \3.14159; # 赋值之后 $PI 即为常量，不能修改
6. I/O重定向：也是typeglob的应用之一，如
open F, “>/tmp/x”;
*STDOUT = *F; # 将STDOUT变成F的别名
print “Hello, world!\n”; # print想输出到STDOUT，实际上却输出到了F
7. 需要将文件句柄作为参数使用时，尽量不要用typeglob，而是用FileHandle模块：
# 不推荐的做法
open F, “/tmp/sesame”;
read_and_print(*F);
sub read_and_print {
local (*G) = @_;
while <G> { print; }
}


# 推荐这样做
my $f = new FileHandle;
open $f, “/tmp/sesame”;
read_and_print($f);
sub read_and_print {
my ($f) = @_;
while <$f> { print; }
}
8. 匿名函数的定义和调用：
$foo = sub { print “Hello, $_[0]!\n”; }; # 注意末尾要有分号
&$foo(“world”); # 可以用&符号来调用
$foo->(“world”); # 也可以用->调用
9. 如何抛出自己不想处理的异常：
eval { …. }; if ($@ =~ /…/) { 处理异常; } else { die; } # 不带参数的die相当于die $@
10. 正则表达式中的 /e 修饰词并不等于eval（虽然很像）。如：
$str = “10/0″;
$str =~ s/(\d+)\/(\d+)/$1\/$2/e;
print $str;
结果 s 那一行会打印出零除错误，而不是将错误放到 $@ 中。要想捕获错误，需要用eval 将s括起来。


11. 设置等待超时一般都这样做：
local $SIG{ALRM} = sub { die “TIMEOUT”; };
eval {
alarm(10); $input = <>; alarm(0);
};
if ($@ =~ /TIMEOUT/) { … }
注意这里alarm(10)一定要放在eval内。否则，万一程序执行完alarm后发生任务切换，而程序再次获得时间片时，ALRM信号已经发生， 这时程序还没有执行到eval内就产生die，程序就会退出。


12. 存取包的符号表： foreach $name (%Foo::) …


13. 搜索@ISA数组是深度优先的。


14. Symbol模块可以生成typeglob。