阅读量:5
在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) = @_;
将@_
数组中的参数分配给相应的变量。这样,就可以在子程序中使用这些参数了。