为什么ref不返回'GLOB'？

Question

我想更好地理解typeglobs并编写小程序:

use Symbol;

open F, '>', \my $var;
t( F );
t( \F );
t( *F );
t( \*F );
sub t {
   my $fh =  shift;
   print ">>$fh<<" . ref( $fh ) ."\n";
}

输出是:

>>F<<
>>SCALAR(0x1e67fc8)<<SCALAR
>>*main::F<<
>>GLOB(0x1e53150)<<GLOB

为什么GLOB仅在最后一种情况下被返回？

Answer 1

• t( F ):字符串^[1]不是对glob的引用.
• t( \F ):对字符串的引用不是对glob的引用.
• t( *F ):glob不是对glob的引用.
• t( \*F ):对glob的引用是对glob的引用.

1. «在语法中没有其他解释的单词将被视为带引号的字符串.这些被称为" 赤字 ".»