Perl 脚本参数解析327

简介

Perl 脚本参数解析是捕获和处理传递给脚本的命令行参数的过程。这些参数可以在脚本执行时提供信息或配置选项。

读取命令行参数

Perl 使用以下特殊变量来访问命令行参数：* $0：脚本的名称
* @ARGV：数组，包含脚本调用的每个参数
#!/usr/bin/perl
use strict;
use warnings;
my $script_name = $0;
my @args = @ARGV;
print "脚本名称：$script_name";
print "参数：";
foreach my $arg (@args) {
print " - $arg";
}

参数类型

命令行参数可以具有不同的类型：* 必需参数：必须指定，否则脚本将失败
* 可选参数：可以指定，但不是必需的
* 标记参数：不带值的布尔开关

Getopt::Long 模块

Getopt::Long 模块提供了更高级的命令行参数解析功能。它允许您定义选项别名、设置默认值和验证输入。#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
my %options = ();
GetOptions(
"name=s" => \$options{name},
"age=i" => \$options{age},
"verbose" => \$options{verbose},
);
print "名称：$options{name}";
print "年龄：$options{age}";
print "详细输出：$options{verbose}";

可选参数

要定义可选参数，可以使用默认值。#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
my %options = (
name => "John Doe",
age => 30,
verbose => 0,
);
GetOptions(
"name=s" => \$options{name},
"age=i" => \$options{age},
"verbose" => \$options{verbose},
);
print "名称：$options{name}";
print "年龄：$options{age}";
print "详细输出：$options{verbose}";

标记参数

要定义标记参数，可以传递没有值的选项名称。#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
my %options = (
verbose => 0,
);
GetOptions(
"verbose",
);
if ($options{verbose}) {
print "详细输出已启用";
}
else {
print "详细输出已禁用";
}

验证输入

Getopt::Long 模块允许您验证用户输入。您可以使用 validate 方法指定自定义验证函数。#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
my %options = ();
GetOptions(
"name=s" => \$options{name},
"age=i" => {
validate => sub {
my $value = shift;
return $value >= 18;
},
},
);
if (defined $options{name}) {
print "名称：$options{name}";
}
else {
print "未指定名称";
}
if (defined $options{age}) {
print "年龄：$options{age}";
}
else {
print "未指定年龄";
}