perl hash

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;

}

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