PERL中常用的读取输入参数的方式

while(@ARGV){

  $input=$ARGV[0];

  process();

  shift @ARGV;

}