向Perl程序传递参数
#!/usr/bin/perl#argvtest.pl
#run example:
#./argvtest.pl a0 a1 a2
#a0 -> ARGV
#a1 -> ARGV
#a2 -> ARGV
# $#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
页:
[1]