大家有用过@ARGV 在perl中么？

百分百好牛

我在myscript.pl里面使用了这句话
die "no files \n" unless @ARGV;

但是当我在console中输入
perl.exe myscript.pl filename.txt

打印出来的是 no files
说明@ARGV没有内容，我明明有参数啊。这个是神马道理？

谢谢！

lynncate

代码没问题，我测试了一下，后面接文件的话，是没有回显的

Antonio_Zhao

print "Hello from ActivePerl!\n";
        print @ARGV."\n";
        print $ARGV[0]."\n";
        print $ARGV[1]."\n";
        print $ARGV[2]."\n";
        print $ARGV[3]."\n";

百分百好牛

我知道是为什么了。
我前面用了几行这个。
my $par1 = shift;
my $part2 = shift;

"shift"这个东东会把参数弹出来（像stack）一样，这样，再去调用 @ARGV就没有了。

谢谢大家。

zhlong8

shift 的默认参数也要看环境的，在函数中默认参数就是 @_ 函数外面就是 @ARGV。这个特性挺扯蛋的感觉

jason680

shift 的默认参数也要看环境的，在函数中默认参数就是 @_ 函数外面就是 @ARGV。这个特性挺扯蛋的感觉
zhlong8 发表于 2011-05-09 13:00

嗯!!! 不要用shift就好.....
my($name, $value) = @_; # or @ARGV
这样不是又简单又亦懂....