perl的指针，没搞明白过，有问题请教

dpsuffix

[code]
@array= {'a','b','c'};
$target->{array} = @array;
我想通过$target->{array} 把@array的abc全打印出来，怎么写阿？

flw

1. foreach my $item ( @{ $target->{array} } ){
   
2.     print "$item\n";
   
3. }

复制代码

dpsuffix

1. 
   
2. #!/usr/bin/perl
   
3. @array = {'a','b','c'};
   
4. $tar->{arr} = @array;
   
5. foreach my $item ( @{ $tar->{arr} }){
   
6.     print "$item\n";
   
7. }
   

复制代码

不行阿

flw

$tar->{arr} = \@array;

dpsuffix

原帖由 flw 于 2008-6-27 16:22 发表
$tar->{arr} = \@array;

不行阿，打印如下：
HASH(0x8153c2

flw

@array = ('a','b','c');

dpsuffix

原帖由 flw 于 2008-6-27 16:22 发表
$tar->{arr} = \@array;

不这样行不？
$tar->{arr} = @array; 这样不行吗？

cobrawgl

原帖由 dpsuffix 于 2008-6-27 16:54 发表

不这样行不？
$tar->{arr} = @array; 这样不行吗？

这样得到的是 scalar @array 。

版主已经明确告诉你怎么做啦。他今天很耐心啊

gregorian

说明他今天心情很好

ermu

这是正解啊，呵呵