Perl 学习笔记_@ARGV

@ARGV 包含了程序从命令行得到的所有参数。

记录一下：

my $Usage ="\nUsage: $0 <参数1> <参数2>\n\n";
if(@ARGV != 2)
{
        print "$Usage";
        exit -1;
}
my ($file) = $ARGV[0];
if(!($file ))
{
        die "$Usage";
}

参数输入错误的话，输出Usage，相当于使用帮助了。