perl

hash 的 key 只能是字符串，如果不是会被自动转换。

%hash = ('b' = >1, 'a' =>2); #小括号!

*对文件：DR-Orp(*).xml.gz

　　　　解压缩：gunzip DR-Orp(*).xml.gz; #加

　　　   读： open(fin, 'DR-Orp(*).xml.gz');  #小括号；保持原样

引用，重复赋值，之前的值会被覆盖

$refHash = fun();

fun2($refHash); # a ref a hash

sub fun{

...

return \%hash;

}

正则匹配要看结果，很可能匹配结果不是想要的

sub f

{ my ($f) = @_;} #必须要加括号

子函数返回多个变量  #必须要加括号

($a, $b) = f($c, $d);

sub f

{　my($c, $d) = @_;

　　return ($a, $b);}

****有时正则匹配用默认变量$_会有问题！可附成一个变量，如$a。

$a = "a";

$t = $a.'(';

$t = $a.'\(';

$t = $a."(";

$t = $a."\(";结果比较！！！