为了很久不用 Perl 的人，快点熟悉这门语言：
使用 given .. when
use experimental 'switch';
然后就能用：
given ($var) {
when ("a") { say "it is a" }
default { say "it is not a" }
}
语句后面的分号
语句后面必须跟随分号，但如果是代码块的最后一句，可以不用。
if (1) { return $var }
多重赋值：
my ($a, $b) = (1, 2);
声明常量
use constant {
Eof => "\0",
Ein => "\1",
Out => "\2",
};
关键字 函数命名要注意了
last next sub
字符串不能直接索引
sub index_at {
my ($str, $at) = @_;
return substr($str,$at,1);
}
数组可以索引， 但不支持负数
my $arr = [ 'ab', 'cd' ];
my $str = $arr->[0];
哈希索引使用大括号
my $hash = { 'a' => 1, 'b' => 2 };
say $hash->{a}; # same as $hash->{'a'}
注意：hash 的键如果是字母，可以不用引号
网友评论