perl 命令行接受参数 ARGV数组用法

本文介绍了一个使用Perl语言编写的脚本,该脚本能够解析命令行参数,并根据特定的参数来设定服务器名称。通过检查参数的有效性并进行相应的错误处理,确保了脚本的稳定运行。

my $pmum=0;
my $argc = scalar( @ARGV );
if ( $argc < 2) {print "/n/te.g. upload_rec_v2.pl -server taibei/n"; exit 100; }
my $srvName="";
foreach (@ARGV)
{
  print "the $pmum is : $_/n";
  if ($_ =~ /^/-server$/i) {
   if ( ($pmum +1 ) > $argc-1) {print "invalid argument. can not find server name/n"; exit 1;}
   $srvName  .= $ARGV[$pmum+1];   
  }
  $pmum++;  
}#foreach

if ($srvName eq "")  { print "invalid argument. can not find server name/n"; exit 2;}
print "Server Name: $srvName/n";

#end

 

调用方法:XXX.pl -server taibei

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值