用什么方式去判断一个引用是指向一个数组还是散列或是一个函数呢?

xxgsky

用什么方式去判断一个引用是指向一个数组还是散列或是一个函数呢?

笨狗

把这个引用直接print出来看看

兰花仙子

原帖由 xxgsky 于 2005-12-22 17:25 发表
用什么方式去判断一个引用是指向一个数组还是散列或是一个函数呢?

cat t.pl:

1. my $a;
   
2. sub func{ };
   
3. 
   
4. my $refArray = [];
   
5. my $refScalar = \$a;
   
6. my $refHash = {};
   
7. my $refSub = \&func;
   
8. 
   
9. print $refArray,"\n";
   
10. print $refScalar,"\n";
    
11. print $refHash,"\n";
    
12. print $refSub,"\n";

复制代码

perl t.pl:

ARRAY(0x804c95c)
SCALAR(0x8060204)
HASH(0x804ca40)
CODE(0x8060228)

orangetouch

原帖由 兰花仙子 于 2005-12-22 18:39 发表


cat t.pl:

[code]my $a;
sub func{ };

my $refArray = [];
my $refScalar = \$a;
my $refHash = {};
my $refSub = \&func;

print $refArray,"\n";
print $refScalar,"\n"; ...

fayland

http://search.cpan.org/~gbarr/Sc ... /lib/Scalar/Util.pm

reftype

思平

原帖由 xxgsky 于 2005-12-22 17:25 发表
用什么方式去判断一个引用是指向一个数组还是散列或是一个函数呢?

if ( ref $ref eq 'HASH' )
if ( ref $ref eq 'ARRAY' )
if ( ref $ref eq 'SCALAR' )
....

xxgsky

原帖由 思平 于 2005-12-23 03:32 发表


if ( ref $ref eq 'HASH' )
if ( ref $ref eq 'ARRAY' )
if ( ref $ref eq 'SCALAR' )
....

谢谢,这方法能查出引用是什么类型了.
我再深入问一下,如果该引用是个对象呢?我想知道该引用是实现了什么的模快,该怎么判断呢?

fayland

ref $class;
你试试模块，如果是某个模块的看看它显示什么。

brantc

学习了:wink:

rubyish

ref 真的好东西