arrays - 在 Perl 中的一行中创建一个 Array Ref

Question

我在思考是否可以在 Perl 中在一行中创建一个数组 ref 的问题。有点像你定义一个数组。我通常会执行以下操作:

#!/usr/bin/perl
# your code goes here
use warnings;
use strict;
use Data::Dumper;

my @array = qw(test if this works);
my $arrayref = \@array;
print Dumper($arrayref);

我的想法是你应该能够做到:

my $arrayref = \(qw(test if this works);

然而，这并不像我预期的那样工作。这甚至可能吗？

Answer 1

您可以通过为它使用“方括号匿名数组构造函数”来做到这一点。它将创建一个数组引用“文字”

my $arrayref = [ qw(test if this works) ];

或列出每个成员:

my $arrayref = [ 'test', 'if', 'this', 'works' ];

您可以使用 Data Dumper 验证这两个结果:

$VAR1 = [
          'test',
          'if',
          'this',
          'works'
        ];