Perl 函数调用让我困惑

Question

perl 函数调用让我很困惑，谁能帮帮我？
catFiles像这样调用:

catFiles( \@LINKFILES => "$output_prefix.links" );

catFiles功能定义:

sub catFiles {

    unlink("$_[1]") if(exists $_[1]);
    system qq( cat "$_" >> "$_[1]" ) for @{$_[0]};
}

不知道为什么会有 =>我认为应该是 , .

Answer 1

=>是(几乎)等价于 ,在 Perl 中。 (有关差异，请参阅 the "official" documentation。)

通常在定义散列时使用它来表示键和值之间的关系:

my %hash = (
  'a' => 1,
  'b' => 2,
);

我们可以写成 my %hash = ('a', 1, 'b', 2);行为没有变化，但这看起来不太好。你甚至可以做 my $hash = ('a', 1 => 'b', 2);但这只是令人困惑。

同样，在您的情况下，您可以将代码编写为

catFiles(\@LINKFILES, "$output_prefix.links");

它会做与 => 相同的事情版本。

这里它被用作语法糖，我想表明 @LINKFILES 的内容将被连接成 "$output_prefix.links" .