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;
}

yinyuemi

回复 1# gridbird

1. my $a = {};
   
2. &test_array_ref($a);
   
3. my $d = $a->{0}; ###
   
4. 
   
5. foreach my $dd (@{$d}) { ###
   
6.     print $dd."\n";
   
7. }
   
8. 
   
9. sub test_array_ref {
   
10.   
    
11.       my ($b) = @_; # or:  my $b = shift;
    
12. 
    
13.       my $c0 = [1,2,3]; ###
    
14.       my $c1 = [4,5,6]; ###
    
15.   
    
16.       $b->{0} = $c0; ###
    
17.       $b->{1} = $c1; ###
    
18. }

复制代码

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


   

yizhengming

http://perldoc.perl.org/perlreftut.html#Making-References

...................

kk861123

回复 4# gridbird


    so, why are you used array like this?

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

复制代码

shoud it be used as this?

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

复制代码

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;
}


有同样的错误提示

zhlong8

@{$a->{0}}

yuqinghua1982

楼上版主才是正解