perl - perl - calling to ref did not return anything

Question

can somebody explain why calling ref did not return anything ?

[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

What I am doing wrong ?

Answer 1

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

Answer 2

@varref ではなく、配列です。試してみてくださいref(\@var)。