Perl子程序传参的方法是什么

在Perl中，可以使用@ARGV数组来传递命令行参数给子程序。@ARGV数组包含了命令行参数的列表，其中$ARGV[0]是第一个参数，$ARGV[1]是第二个参数，依此类推。

下面是一个示例代码，说明如何在Perl子程序中接收和使用命令行参数：

#!/usr/bin/perl

sub my_subroutine {
    my ($arg1, $arg2) = @_;
    
    print "arg1: $arg1\n";
    print "arg2: $arg2\n";
}

my_subroutine($ARGV[0], $ARGV[1]);

假设将上述代码保存为test.pl，然后在命令行中运行：

perl test.pl hello world

输出将会是：

arg1: hello
arg2: world

在子程序中，可以通过@_数组来获取传递给子程序的参数。使用my ($arg1, $arg2) = @_;将@_数组中的参数分配给相应的变量。这样，就可以在子程序中使用这些参数了。