求助 -如何判断传递进来的引用是hash还是array

shigw001

UID: 25707
帖子: 181
积分: 416
在线时间: 1 天 20 小时

1^# shigw001 发表于 2008-06-30 18:09

求助 -如何判断传递进来的引用是hash还是array

比如：
有一个引用数据结构大致为：
$testData -> {"test"} ->  ? ;
这个 ?  当有单个object的时候是个hash，如 $testData -> {"test"} -> \%testInfo ;

         当有多个的时候是个 Array,如 $testData -> {"test"} -> [0] -> \%testInfo ;
                                                   $testData -> {"test"} -> [1] -> \%testInfo ;

函数：
sub test
{
   my $pTest = shift;
# 下面是解析数据

}

调用：
&test( $testData -> {"test"} );

我如何能判断传入的是hash 还是 array 进行 parse 数据呀？

flw

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

2^# flw 发表于 2008-06-30 18:38

perldoc -f ref

撒哈拉里的鱼

UID: 25861
帖子: 2
积分: 4
在线时间: 10 分钟

3^# 撒哈拉里的鱼发表于 2008-06-30 18:39

要是我，就干脆加一个记号。

flw

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

4^# flw 发表于 2008-06-30 18:55

QUOTE:

原帖由撒哈拉里的鱼于 2008-6-30 18:39 发表
要是我，就干脆加一个记号。

re

Nosferatu

UID: 5185
帖子: 94
积分: 216
在线时间: 12 小时

5^# Nosferatu 发表于 2008-06-30 20:04

或者用Scalar::Util

a_789_123

UID: 31260
帖子: 91
积分: 209
在线时间: 11 小时

6^# a_789_123 发表于 2008-07-01 08:57

可以这样来来解决：

if($变量=~/^HASH/){
你要做的操作
}elsif($变量=~/^ARRAY/){

你要做的操作
}

刚才一疏忽，写错了，呵呵，不好意思啊

redspider

UID: 15827
帖子: 146
积分: 335
在线时间: 1 天 5 小时

7^# redspider 发表于 2008-07-01 10:19

QUOTE:

原帖由 flw 于 2008-6-30 18:38 发表
perldoc -f ref

[Copy to clipboard] [ - ]

CODE:

shigw001

UID: 25707
帖子: 181
积分: 416
在线时间: 1 天 20 小时

8^# shigw001 发表于 2008-07-01 14:56

OK.我去看看。
还有  这样也行？
if($变量=~/^HASH/){
   你要做的操作
}elsif($变量=~/^ARRAY/){

      你要做的操作
}

hfahe

UID: 36097
帖子: 160
积分: 368
在线时间: 1 天 11 小时

9^# hfahe 发表于 2008-07-01 15:39

ref