Perl的命令行参数和ARGV

程序名：$0

$0表示当前正在运行的Perl脚本名。有3种状况：

1. 若是执行方式为perl x.pl，则$0的值为x.pl而非perl命令自己
   
2. 若是执行方式为./x.pl，则$0的值为./x.pl
   
3. 若是执行的是perl -e或perl -E一行式perl程序，则$0的值为-e或-E

命令行参数ARGV

• perl将perl命令行的参数列表放进数组ARGV(@ARGV)中。既然是数组，就能够访问($ARGV[n])、遍历，甚至修改数组元素
  
• ARGV数组分三种状况收集：
  • perl x.pl a b c方式运行时，脚本名x.pl以后的a b c才会被收集到ARGV数组
    
  • ./x.pl a b c方式运行时，a b c才会被收集到ARGV数组
    
  • perl -e 'xxxxx' a b c方式运行时，a b c才会被收集到ARGV数组
    
• ARGV数组索引从0开始计算，索引0位从脚本名(perl程序名)以后的参数开始计算
  
• 默认，这些命令行参数是perl程序的数据输入源，也就是perl会依次将它们看成文件进行读取
  
• 参数是有序的，读取的时候也是有序的
  
• 须要区分ARGV变量和ARGV数组：
  • $ARGV表示命令行参数表明的文件列表中，当前被处理的文件名
    
  • @ARGV表示命令行参数数组
    
  • $ARGV[n]：表示命令行参数数组的元素
    
  • ARGV：表示<>当前正在处理的文件句柄

例如，test.plx的内容以下：

/usr/bin/perl

print '$ARGV[0] ---> ',$ARGV[0],"\n",
      '$ARGV[1] ---> ',$ARGV[1],"\n",
      '$ARGV[2] ---> ',$ARGV[2],"\n",
      '$ARGV[3] ---> ',$ARGV[3],"\n",
      '$ARGV[4] ---> ',$ARGV[4],"\n";

执行这个程序：

shell> ./test.plx -w a b c d
$ARGV[0] ---> -w
$ARGV[1] ---> a
$ARGV[2] ---> b
$ARGV[3] ---> c
$ARGV[4] ---> d

由于是数组，因此能够修改数组，好比强制指定元素：

/usr/bin/perl

@ARGV=qw(first second third);
print '$ARGV[0] ---> ',$ARGV[0],"\n",
      '$ARGV[1] ---> ',$ARGV[1],"\n",
      '$ARGV[2] ---> ',$ARGV[2],"\n";

shell> ./test.plx a b c d
$ARGV[0] ---> first
$ARGV[1] ---> second
$ARGV[2] ---> third

例如，读取2个文件(a.log,b.log)的内容：

/usr/bin/perl

while(<>){
    print $_;
}

shell> ./test.plx a.log b.log

若是想读取标准输入，只需使用"-"做为文件参数便可。

$ echo -e "abcd\nefg" | ./test.plx a.log - b.log

上面将按前后顺序读取a.log，标准输入(管道左边命令的输出内容)，b.log。