一种对带参数选项的参数的读取方法[Perl]

Mar 04	一种对带参数选项的参数的读取方法[Perl]
	Categories: Perl \| Tags: Perl \| Views: 949

前面写了一个C++版本的，再来一个Perl版本的：

if(@ARGV<1){
    print STDERR " program information \n";
    print STDERR " program usage \n";
    exit;
}
 
my $temp;
my $parm1;
my $parm2;
while(@ARGV){
    $temp = shift;
    if($temp eq "-1") { $parm1 = shift; }
    elsif($temp eq "-2") { $parm2 = shift; }
    else {
        print STDERR "Warning: argument $temp igorned.\n";
    }
}
 
if(!defined($parm1)){ #检测参数
    print STDERR "Error: argument '-1' is essential.\n";
    exit;
}
 
$parm2 = 3 if(!defined($parm2)); #给出默认值