perl知识点

最近工作中一直在用perl写程序。 尽管perl不是我学习方向，但还是对工作中遇到的一些知识点做下总结，以备后用。

1。定义一个哈希(散列或关联数组)
%FOR=(
 "aaa"=>"001",
 "bbb"=>"002",
 "ccc"=>"003",
 "ddd"=>"004",
);

2。取关联数组里的单个数据：$FOR{"aaa"},或用简单变量：$FOR{$tmp_par}.

定义一个二维关联数组
%FOR1=(
 "aaa"=>"001",
 "bbb"=>"002",
 "ccc"=>"003",
 "ddd"=>"004",
);
%FOR2=(
 "xxx"=>"how",
 "yyy"=>"are",
 "zzz"=>"you",
);

%TO_FOR=(
 "0"=>/%FOR1,
 "1"=>/%FOR2,
);

/表示用来取%FOR1和%FOR2的地址。
这样就可以通过$TO_FOR{"0"}{"aaa"}得到001.

3。在perl里递归调用子程序，该子程序一定要有停止调用本身的代码，如return语句。另外，除了不被子程序改变的变量外，所有的变量必须的局部的，即用my声明.

4。在用split()以?,.,+,*等字符分割时，需要加上转义/，如：split('/?',$some_string);

5。将分割的自串放到数组里：my @temp=split('/',$tmp_s2);
 接着可以用@temp得到数组大小，如：my $size = @temp;$size即为数组temp的大小。
 
6。对数组循环:
 foreach my $u (@arr_tmp)
 {
  ...
 }

7。判断一个字串是否匹配一个模式，可用$u=~/tre|world|mp3/
 如：my $pattern="tre|world|mp3"
  if($u=~/$pattern/)
  {
   #匹配
  }