perl 参数传递问题

Johnse

如题

源代码:

for (my $n=0; $n<($#ARGV+1); $n++) {
    if ($ARGV[$n] eq "-h" or $ARGV[$n] eq "-H") {
          &1;
          }
          elsif ($ARGV[$n] eq "-a" ){
          $n++;
          $q=$ARGV[$n];
          &2;
          }
          elsif ($ARGV[$n] eq "-b"){
          $n++;
          $w=$ARGV[$n];
          print "\n";
          &3;
                   }else {
                 &1;
                }
        }
当-a = $q 时,print &2; 当-b = $w时, print &3,而我想要的当在命令行输入参数 -a =$a and -b = $w 时, 我需要print &3的值.. 我上面这段代码是把&2,&3的值都打印出来啦.. 那位帮我看看.

Johnse

修改一下. 当-a = $q 时,print &2; 当-b = $w时, print &3,而我想要的当在命令行输入参数 -a =$b and -b = $w 时, 我需要print &3的值.. 我上面这段代码是把&2,&3的值都打印出来啦.. 那位帮我看看.

churchmice

Getopt::Long
Getopt::Std