论坛 › Perl › perl减轻工作量（第一个perl脚本）

renran421 发表于 2018-9-1 08:14:07

perl减轻工作量（第一个perl脚本）

###################### endsub ###########################################　　unless ($ARGV =~ /-/){
　　print $usage;
　　exit;
　　}
　　unless ($ARGV =~ /^({4}\.){2}{4}$/){
　　print $usage;
　　exit;
　　}
　　del_mac($vmps,$ARGV) if $ARGV eq "-d";
　　que_mac($vmps,$ARGV) if $ARGV eq "-q";
　　if ($ARGV eq "-a"){
　　foreach (@department){
　　$bl =1 if /^$ARGV$/;
　　}
　　unless ($bl){
　　print $usage;
　　exit;
　　}
　　add_mac($vmps,$ARGV,$ARGV) if !($bl=que_mac($vmps,$ARGV));
　　}

查看完整版本: perl减轻工作量（第一个perl脚本）