Perl脚本命令行参数处理技巧

命令行ref="/tag/419/" style="color:#3D6345;font-weight:bold;">参数在运维中的常见用途

在日常的网络运维工作中，经常需要写一些自动化脚本来完成日志分析、服务状态检查或配置批量更新的任务。Perl 作为老牌脚本语言，在文本处理和系统管理方面依然有它的用武之地。而让脚本更灵活的一个关键，就是支持命令行参数。

比如你有个 Perl 脚本用来检查服务器端口连通性，每次都要手动改 IP 和端口显然太麻烦。如果能让它像这样运行：perl check_port.pl --host 192.168.1.100 --port 80，那就方便多了。

使用 @ARGV 直接获取参数

最简单的方式是直接读取 Perl 内置的 @ARGV 数组，它保存了所有传入的命令行参数。

#!/usr/bin/perl
my $host = $ARGV[0];
my $port = $ARGV[1];

print "正在检查 $host:$port\n";

运行时输入：perl script.pl 192.168.1.100 80，脚本就能拿到两个值。这种方式适合参数少、顺序固定的小工具。

用 Getopt::Long 模块处理复杂选项

当参数变多，比如支持 --timeout、--verbose 或可选参数时，自己解析就容易出错。这时候推荐用 Getopt::Long 模块。

#!/usr/bin/perl
use Getopt::Long;

my $host;
my $port = 80;
my $verbose = 0;

GetOptions(
    'host=s'     => \$host,
    'port=i'     => \$port,
    'verbose'    => \$verbose
);

die "必须指定 --host\n" unless $host;

if ($verbose) {
    print "详细模式开启\n";
}

print "连接 $host:$port\n";

这里 host=s 表示该选项需要一个字符串值，port=i 表示需要整数，verbose 是个布尔开关。这种写法清晰又健壮，适合实际运维场景。

结合 Pod 文档提供帮助信息

脚本用的人一多，别人记不住参数很正常。可以在脚本末尾加上 POD（Plain Old Documentation），再通过 perldoc script.pl 查看说明。

=head1 NAME

check_port - 检查远程端口连通性

=head1 SYNOPSIS

perl check_port.pl --host <ip> [--port <number>] [--verbose]

=head1 OPTIONS

=over 4

=item --host

目标主机地址，必填

=item --port

目标端口，选填，默认 80

=item --verbose

启用详细输出

=back

=cut

这样既不影响执行，又能提供即时帮助，团队协作时特别有用。

运维脚本不在于多高级，而在于够用、稳定、易维护。合理使用 Perl 的命令行参数处理机制，能让你写的工具更贴近实际需求，少些重复劳动，多点效率。