将数组存储到 Perl 哈希中的正确语法是什么？

Question

我正在创建一个这样的新对象：

TestObject->new(@array1, @array2)

我的new 方法如下所示：

sub new {
  my $class = shift;
  my $self = {};

  my $self->{Array1} = shift;
  my $self->{Array2} = shift;

  bless($self, $class);

  return $self;
}

作为访问数据的简单测试，我正在尝试这个，然后一旦我开始工作，我就可以构建更有意义的逻辑：

sub mymethod {
  my $self = shift;
  my $param = shift;

  my $array1Value = shift(my $self->{Array1});
  my $array2Value = shift(my $self->{Array2});

  print $array1Value." ".$array2Value;
}

但是当我打电话给mymethod 时，我得到了这个错误：

Type of arg 1 to shift must be array (not hash element) at Tests/MyObject.pm line 21, near "})"

建议？我读过this page on Perl data structures，但他们没有使用shift 方法的参数创建数组散列的示例。所以我的问题可能就在那里。

Answer 1

当您将数组作为参数传递时，它们会被展平。您可以传递对它们的引用。见perlsub

#!/usr/bin/env perl

package foo;

sub new {
    my $class = shift;
    my $self = {};

    $self->{Array1} = shift;
    $self->{Array2} = shift;

    bless($self, $class);

    return $self;
}

sub mymethod {
  my $self = shift;
  my $param = shift;

  my $array1Value = shift( @{$self->{Array1}} );
  my $array2Value = shift( @{$self->{Array2}} );

  print "$array1Value $array2Value\n";
}

package main;

my @a = ( 0, 1, 2);
my @b = ( 3, 4, 5);
my $o = new foo( \@a, \@b );;
$o->mymethod;

Answer 2

在这种情况下，您必须使用指向数组的指针，而不是数组：

  TestObject->new([@array1], [@array2])

后来

my $array1Value = shift(@{$self->{Array1}});

Answer 3

您正在移动一个数组引用而不是一个实际的数组。

你可能正在寻找的语法是：

my $array1Value = shift @{ $self->{Array1} };
my $array2Value = shift @{ $self->{Array2} };

注意如何使用@ 取消引用数组。

Answer 4

您需要取消对数组 ref 的引用：

@{$self->{Array2}}

顺便说一句，如果您使用的是 OO，我强烈建议您查看 Moose。它会让你的生活更轻松！