请教 如何在perl 在命令行声名变量赋值

cn_lynn

例


a.pl:
#!/usr/bin/perl -s
$timeout=6000 if !$timeout;
print "timeout:",$timeout,"\n";

while ($line=<>){
.............
}



[ -V[:configvar] ] 这个参数是设置变量吗？
想在a.pl 中使用$timeout 又不使用ARGV ,在命令行账值 如  a.pl  xxx.log -V:timeout=7000  
有知道怎么写的吗？

jason680

回复 1# cn_lynn

1. Getopt::Std module
perldoc Getopt::Std

2. Getopt::Long module
perldoc Getopt::Long

3. @ARGV by yourself
  the simple way by shift or pop
    if($ARGV[0]  =m/^--timeout=(\d+)/){
      shift @ARGV;
      $timeout = $1;
    }
    if($ARGV[-1]  =m/^--timeout=(\d+)/){
      pop @ARGV;
      $timeout = $1;
    }