perl 代码搜集

1. GETOPT 处理参数 代码简化html 个人代码：less    'r=s' => sub{                   my ($opt_name,$opt_value)=@_;                   if($opt_value eq "all") {$replica=0;}                  elsif($opt_value eq "1") {$r

>>阅读原文<<