perl hash值为数组引用的问题

gridbird

一段代码， 不知道为什么总是提示：Not an ARRAY reference at ./Arrayref.pl line 12.
难道hash值为数组的引用不能从子函数中传出吗？

my $a = {};
&test_array_ref($a);
my @d = @$a->{0};

foreach my $dd (@d) {
    print $dd."\n";
}

sub test_array_ref {
  
      my ($b) = @_;

      my @c0 = [1,2,3];
      my @c1 = [4,5,6];
  
      $b->{0} = \@c0;
      $b->{1} = \@c1;
}

gridbird

I will test it. thank you!

gridbird

不好意思， 其实 c0 和  c1 是两个数组.

@c0 = (1,2,3);
@c1 = (4,5,6);

不是：

@c0 = [1,2,3];
@c1 = [4,5,6];


该怎么做？

回复 2# yinyuemi


   

gridbird

方括号是敲错了！
my $a = {};
&test_array_ref($a);
my @d = @$a->{0};

foreach my $dd (@d) {
    print $dd."\n";
}

sub test_array_ref {
  
      my ($b) = @_;

      my @c0 =（1,2,3）;
      my @c1 = (4,5,6);
  
      $b->{0} = \@c0;
      $b->{1} = \@c1;
}


有同样的错误提示