1

有人可以解释为什么调用 ref 没有返回任何东西吗？

[pista@HP-PC ~]$ perl -wlae '$var=1; print ref($var)'

[pista@HP-PC ~]$ perl -wlae '@var=1; print ref(@var)'

[pista@HP-PC ~]$ perl -v

This is perl 5, version 14, subversion 3 (v5.14.3) built for x86_64-linux-thread-multi

Copyright 1987-2012, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl".  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

 [pista@HP-PC ~]$ uname -a
Linux HP-PC 3.6.11-1.fc16.x86_64 #1 SMP Mon Dec 17 21:29:15 UTC 2012 x86_64 x86_64 x86_64 GNU/Linux

我做错了什么？

4

2 回答 2

7

从perldoc -f ref：

ref EXPR
ref     Returns a non-empty string if EXPR is a reference, the empty
        string otherwise.

您的值是标量和数组，它们不是引用，因此ref返回空字符串。如果你要这样做：

print ref \$var;

你会得到输出：SCALAR

于 2013-01-13T10:16:46.153 回答
3

@var不是 ref，它是一个数组。试试ref(\@var)。

于 2013-01-13T10:16:53.853 回答