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

>>阅读原文<<