Effective Perl Programming : Item 13-23

Item 14 :
use bignum;
Math::BigFloat、Math::BigInt

Item 15 :
Perl 5.10版之后，已经有 my $_

Item 17 :
用 +{ somefunc() } 表明是个hash引用

my $hashref = eval { 
+{ key_value_pairs() }  # OK
};

Item 18 :
声明函数：use subs qw(somefunc);

Item 22 :
目录按文件名排序

my @sorted = 
sort { ( $m{$b} ||= -M $b ) <=> ( $m{$a} ||= -M $a ) } 
@files;

Item 23 : 重点看看，智能匹配 ~~

if ( $key ~~ %hash ) { ... }
if ( $name ~~ @cats ) { ... }