Getopt::Std参数调用的问题，请看看

aku1

用Getopt::Std写了简单判断，就是 l 参数多次调用，发现下面代码行不通
hello.pl -l server -s
hello.pl -l server

都会调用if ($opt_l){ }里的block,怎么假定后面加了s 像 hello.pl -l server -s 忽略if ($opt_l)呢，感觉这太麻烦了还不如我不加模块直接操作@ARGV ，有更好的办法吗 ？

if ($opt_l){
   $host_file=$opt_l;
   print "Please input your batch command\n";
   $cmd = <STDIN>;
   &Main_cmd(\&Batch_cmd);
}
if ($opt_S){
   &Usage;
   exit(0);
}
if ($opt_l and $opt_s){
   $host_file=$opt_l;
   $cmd=$opt_s;
   $intrs=1;
   &Main_cmd(\&Batch_cmd);
}

aku1

回复 1# aku1

没人回啊，实在不行 把 $opt_s放 if ($opt_l ) {}去判断了

#if ($opt_l){
#   $host_file=$opt_l;
#   print "Please input your batch command\n";
#   $cmd = <STDIN>;
#   &Main_cmd(\&Batch_cmd);


   

aku1

自己改了下，好像有点sb,要仔细看下Getopt::Long,看能不能简单点
if ($opt_l){
  if (defined($opt_b)) {
   $host_file=$opt_l;
   $cmd=$opt_b;
   $intrs=1;
   &Main_cmd(\&Batch_cmd);
   }
  elsif (defined($opt_s)) {
    $host_file=$opt_l;
    $cmd=$opt_s;
    &Main_cmd(\&Scp_cmd);
    }
  elsif (defined($opt_g)) {
    $host_file=$opt_l;
    $cmd=$opt_g;
    $intrs=1;
    &Main_cmd(\&Scp_cmd);
   }
  else {
   $host_file=$opt_l;
   print "Please input your batch command\n";
   $cmd = <STDIN>;
   &Main_cmd(\&Batch_cmd);
   }
}