如何在 PERL 中打印数组引用的值？

Question

我在 Perl 中有一个带方括号的已定义天数数组。我想访问数组的每个元素。 下面代码中的一个类似示例（这只是一个sn-p代码）：-

@days = [a,2,3];
foreach(@days){print "$_\n";}
print "\n\n @days";

输出是 数组（0x2032950）

数组（0x2032950）

我需要访问数组 elementS，但我无法更改 @days 声明。 以下代码也无法正常工作：-

 @days = [a,2,3];
    use feature qw<say>;    
    foreach(@days){print "$_\n";}
    print "\n\n @days\n";
    print "@$days\n";
    say $_ for $days->@*;

Answer 1

Attn: OP - 数组声明不正确。

如果您无法更改数组声明（不清楚是什么原因），请使用以下代码打印它们

use strict;
use warnings;
use feature 'say';

my @days = ['a',2,3];

say for @{$days[0]};

say "Number of elements: " . scalar @{$days[0]};

正确的代码应该是

use strict;
use warnings;
use feature 'say';

my @days = ('a',2,3);

say for @days;

say "Number of elements: " . scalar @days;

下面的一段代码演示了数组是如何创建的，使用这些信息很容易弄清楚如何访问数组元素的存储值

use strict;
use warnings;
use feature 'say';

use Data::Dumper;

my @days = ['a',2,3];

say Dumper(\@days);

输出

$VAR1 = [
          [
            'a',
            2,
            3
          ]
        ];

Answer 2

我认为您的数据中不小心多了一层。

当您使用方括号时，您实际上是在使用匿名数组构造函数。这将返回一个数组引用，它是一个标量（单个项目）。您可能并不打算将其分配给数组，因为您获得了一个包含一个元素的数组，其中一个元素是引用。这有效地产生了双层哈希：

my @days = [ 'a', 1, 2 ];  # probably wrong

由于数组引用是一个标量，您可能的意思是将其分配给带有$（单项）印记的标量。你不使用@，因为引用指向一个数组。印记更多的是关于容器而不是数据：

my $days = [ 'a', 1, 2 ];

当您拥有数组引用时，有多种方法可以获取其元素。由于它是一个简单的标量（不是对数组或散列的单个元素访问），您可以在其前面加上 @（多元素标记）将其视为数组：

my @elements = @$days;

# OR
foreach my $element ( @$days ) {
    say "Element: $element";
    }

您甚至可以像命名数组一样对其进行插值：

say "Elements are @$days";

Answer 3

这是一种打印数组引用的方法：

#! /usr/bin/env perl

use warnings;
use strict;
use feature qw<say>;

my $arr_ref = [1,2,3];

say for $arr_ref->@*;