Question

我必须将两个引用作为参数传递给子例程（buildRanges）作为哈希键值对，如下所示

示例：

@array = (“0A0”, “005”, “001”, “004”, “0BC”, “004”, “002”, “001”);
@ranges = ();
$numRanges = buildRanges(VALUES => \@array, REF_RANGES=>\@ranges);

我的问题是 1.上面的子程序调用的语法是否正确？
2. VALUES和REF_RANGES是什么？

坦率地说，我无法理解子例程电话，但我被告知只能使用该电话。

感谢。

KK

Answer 1

<强>说明

是。这种语法对于Perl来说是正确和惯用的。让我们剖析函数调用的所有部分 - 很可能你已经知道部分解释了。

准备：您的输入数据

@array = (“0A0”, “005”, “001”, “004”, “0BC”, “004”, “002”, “001”);
@ranges = ();
# \@array and \@ranges are now normal scalar references.

我希望你理解数组引用的概念。如果没有，请阅读perlreftut或perllol。实际上，这不会影响您询问的调用语法。顺便说一下，你可能也写过：

$array_ref=[“0A0”, “005”, “001”, “004”, “0BC”, “004”, “002”, “001”];
$range_ref=[];

$numRanges = buildRanges(VALUES => $array_ref, REF_RANGES=> $range_ref);

函数调用

在Perl中，箭头操作符=＆gt;正常工作就像一个普通的逗号（我们稍后会讨论一个小副作用）。以下调用完全相同：

$numRanges = buildRanges(VALUES => $array_ref, REF_RANGES => $range_ref);
$numRanges = buildRanges("VALUES", $array_ref, "REF_RANGES", $range_ref);

因此，您只需使用四个参数调用函数buildRanges：两个常量字符串和两个数组引用。您注意到VALUES一词已更改为常量字符串“VALUE”;同样适用于REF_RANGES这个词。这是特殊规则：在箭头=＆gt;之前在大括号{}内，普通标识符以静默方式转换为字符串。我们在下面再看一遍。但其他表达方式如$ a =＆gt; $ b保持不变，没有对字符串进行无声转换。

您可能会问为什么Perl会这样做？这是语法糖：=＆gt;如果没有它，操作员就无法轻易做到。但对于有经验的perl程序员，格式KEY =＆gt; $ value看起来比“KEY”，$ value更清晰。

功能定义

函数buildRanges的定义可能如下所示（我们在解释中使用它）：

sub buidRanges { my(%info)=@_; 
  my $values    = $info{VALUES};
  my $ref_ranges= $info{REF_RANGES};
  my $special_feature = $info{SPECIAL_FEATURE}; # explained below
  if($special_feature) { ... return special_result; }
  ... process $values and $ref_ranges ... return $numRanges.
}

使用输入数据，以下四行中的每一行都具有相同的效果：

my(%info)=@_;                                          # the actual code
my(%info)=(VALUES => \@array, REF_RANGES=> \@ranges ); # what this does

my %info; $info{"VALUES"}=\@array; $info{"REF_RANGES"}=\@ranges; 
my %info; $info{ VALUES }=\@array; $info{ REF_RANGES }=\@ranges;

基本上，输入数据被转换为允许访问每个参数的哈希。函数调用中的常量字符串成为散列键。

选择您理解的一行并将其与其他行进行比较：它们执行相同的操作。请查看perldsc以获取更多解释。

请注意，@ _是输入参数的数组，在我们的例子中是

@_ = ( VALUES => \@array, REF_RANGES=> \@ranges); 
@_ = ("VALUES",  \@array,"REF_RANGES", \@ranges);  # without syntactic sugar

您可能已经注意到$ info {VALUES}相当于$ info {“VALUES”} - 再次，这是语法糖，如上所述。

在我们的假设实现中，我们将输入数据从哈希中拉出来：

 my $values     = $info{VALUES};       # i.e:  my $value      = \@array;
 my $ref_ranges = $info{REF_RANGES};   # i.e:  my $ref_renges = \@ranges;

现在，我们的函数实现可以处理输入数据。

为什么我们这样做并不简单？ ---命名参数

到目前为止，我们可以更简单地实现类似的效果：

$numRanges = buildRanges($array_ref, $range_ref);  # simpler function call

sub buidRanges { my($values, $ref_ranges)=@_; 
  ... process $values and $ref_ranges ... return $numRanges.
}

这很可能是你已经很清楚的编程风格。

所以：为什么让一些Perl程序员更复杂（也慢得多）？答案是：它更灵活，更自我记录。

为了更清楚地说明，我在我们的函数定义中添加了SPECIAL_FEATURE。现在，函数也可以这样调用：

$numRanges = buildRanges(VALUES => \@array, SPECIAL_FEATURE=> "infinite ranges");

已实现的函数可以告知请求SPECIAL_FEATURE并且未提供REF_RANGES。

在某些高级功能中，您有许多额外的功能，有时（但并非总是）有用，因此让调用者决定使用哪些功能以及哪些功能不使用是很有意义的。这里，命名参数派上用场。

当然，我无法告诉您识别哪些特殊功能 buildRanges功能---您需要查看其实现或询问告诉您使用它的人。作为一般约定，某些项目中的所有高级函数也可能使用此调用样式，即使某些它们没有提供很多特殊功能。

Perl - 将参数传递给子例程作为哈希键 - 值对问题

1 个答案: