向Perl程序传递参数

#!/usr/bin/perl

#argvtest.pl

#run example: 
#./argvtest.pl a0 a1 a2
#a0 -> ARGV[0]
#a1 -> ARGV[1]
#a2 -> ARGV[2]
#   $#ARGV=2
#note the difference:
$aaa=@ARGV; 
print $#ARGV , "\n";    # 2
print $aaa , "\n";      # 3
print "$aaa" , "\n";    # 3
print @ARGV , "\n";     # a0a1a2
print "@ARGV" , "\n";   # a0 a1 a2