perl

1. 傳參
   $csv = $ARGV[0];
   多個檔案可以對應[1] [2] ...
2. 讀取檔案
   open (file,"<$csv");
   while ($line = ){
   if ($line =~ /.../) {...}
   }