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

最新推荐文章于 2024-07-01 13:45:00 发布

原创最新推荐文章于 2024-07-01 13:45:00 发布 · 7.6k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

当前文章被以下社区和专栏收录：

本文介绍了一个使用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

标签