Perl脚本传参方法详解

命令行参数的基本获取方式

在日常运维或自动化任务中，经常需要通过命令行向ref="/tag/2034/" style="color:#8B0506;font-weight:bold;">Perl脚本传递参数。最直接的方式是使用@ARGV数组，它保存了所有传入的命令行参数。比如运行perl script.pl file.txt 100 debug，那么@ARGV就包含三个元素：file.txt、100和debug。

#!/usr/bin/perl
my $filename = $ARGV[0];
my $count    = $ARGV[1];
my $mode     = $ARGV[2];

print "文件名: $filename\n";
print "数量: $count\n";
print "模式: $mode\n";

这种方式简单明了，适合参数少且顺序固定的场景。

使用Getopt::Std处理单字符选项

当脚本需要支持像-f filename -v这样的传统Unix风格选项时，Getopt::Std模块就很实用。它可以解析短选项，并自动处理布尔开关和带值的参数。

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

my %opts;
getopts('f:vr', \%opts);

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

if ($opts{f}) {
    print "配置文件: $opts{f}\n";
}

上面的例子中，f:表示f后面必须跟一个值，而v和r是标志位，有则为真。执行perl script.pl -v -f config.conf就能正确解析。

更灵活的选择：Getopt::Long

现代脚本通常需要长选项支持，比如--input=file.txt --verbose。这时候Getopt::Long就是更好的选择。它能同时兼容长短选项，并支持多种数据类型。

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

my $input  = ''; 
my $verbose = 0;
my @exclude;

GetOptions(
    'input=s'     => \$input,
    'verbose'     => \$verbose,
    'exclude=s@'  => \@exclude
);

print "输入文件: $input\n" if $input;
print "排除列表: " . join(', ', @exclude) . "\n" if @exclude;

这里s代表字符串，s@表示接收多个值的数组，!可以用于布尔型。这种写法让脚本接口更清晰，也更容易维护。

实际应用场景举例

假设你要写一个日志分析脚本，需要指定日志路径、过滤关键字和是否启用调试输出。结合Getopt::Long，调用方式可以设计成这样：perl logscan.pl --path=/var/log/nginx.log --keyword=error --debug。参数结构清晰，别人一看就知道怎么用。

这类传参方式在路由器自动化配置中也很常见。比如批量修改设备参数时，通过脚本接收IP列表、端口和操作模式，能大大提高效率。把配置任务封装成可传参的Perl脚本，既减少了重复劳动，又降低了出错概率。