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

dpsuffix

UID: 1534
帖子: 29
积分: 66
在线时间: 1 小时

1^# dpsuffix 发表于 2008-06-27 16:16

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

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

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2008-06-27 16:17

[Copy to clipboard] [ - ]

CODE:

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

dpsuffix

UID: 1534
帖子: 29
积分: 66
在线时间: 1 小时

3^# dpsuffix 发表于 2008-06-27 16:21

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl
@array = {'a','b','c'};
$tar->{arr} = @array;
foreach my $item ( @{ $tar->{arr} }){
print "$item\n";
}

不行阿

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

4^# flw 发表于 2008-06-27 16:22

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

dpsuffix

UID: 1534
帖子: 29
积分: 66
在线时间: 1 小时

5^# dpsuffix 发表于 2008-06-27 16:24

QUOTE:

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

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

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

6^# flw 发表于 2008-06-27 16:41

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

dpsuffix

UID: 1534
帖子: 29
积分: 66
在线时间: 1 小时

7^# dpsuffix 发表于 2008-06-27 16:54

QUOTE:

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

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

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

8^# cobrawgl 发表于 2008-06-27 18:05

QUOTE:

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

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

这样得到的是 scalar @array 。

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

gregorian

UID: 26195
帖子: 1
积分: 2
在线时间: 10 分钟

9^# gregorian 发表于 2008-06-27 18:22

说明他今天心情很好

ermu

UID: 39722
帖子: 39
积分: 89
在线时间: 2 小时

10^# ermu 发表于 2008-06-27 18:24

这是正解啊，呵呵