perl

1. 传参
   $csv = $ARGV[0];
   多个文件可以对应[1] [2] ...
2. 读取文件
   open (file,"<$csv");
   while ($line = ){
   if ($line =~ /.../) {...}
   }
   3.return
   return每次只能返回一个变量，如果sub中 return 需要返回多个变量，必须用“”括起来；