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/)
  {
   #匹配
  }