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，相当于使用帮助了。