如何在命令行上将值传递给 Perl 子例程参数？

Question

我的 test.pl 脚本如下。

#!C:\Perl\bin\perl.exe
use strict;
use warnings;


sub printargs
{
    print "@_\n";
}

&printargs("hello", "world"); # Example prints "hello world"

如果我用 print($a, $b); 替换 printargs("hello", "world"); 。

当我在命令行运行 perl test.pl hello world 时，如何将 'hello' 、'world' 传递给 $a 、 $b ，谢谢。

Answer 1

请阅读 perldoc perlvar。

Answer 2

$ARGV[0]包含第一个参数，$ARGV[1]包含第二个参数，以此类推。

$#ARGV是@ARGV数组最后一个元素的下标，因此命令行上的参数个数为$# ARGV + 1。

Answer 3

命令行参数位于@ARGV 数组中。只需将其传递给您的函数：

&print( @ARGV );

可能最好避免使用像 print 这样的名称 - 可能会与同名的内置函数混淆。

Answer 4

您想要访问 Perl 中的“命令行参数”。

基本上，Perl 将您在实际脚本名称之后传递的字符串视为名为 @ARGV 的数组。

这是一个简短的教程： http://devdaily.com/perl/edu/qanda/ plqa00001.shtml

只需谷歌“perl 命令行参数”即可了解更多信息。

Answer 5

基本上，正如其他人所说，@ARGV 列表就是您问题的答案。

现在，如果您想进一步为程序定义命令行选项，您还应该查看 getargs。

Answer 6

这还会从命令行参数打印“hello world”，同时根据请求将数据传递给 $a 和 $b。

#!/usr/bin/perl -w

use warnings;
use strict;

sub printargs($)
{
    print $_[0] . " " . $_[1] . "\n";
}

my($a,$b) = ($ARGV[0],$ARGV[1]);
printargs($a,$b);