Perl句柄引用的疑问

on-fire

1. splutter(\*STDOUT);
   
2. 
   
3. sub splutter {
   
4.         my $fh = shift;
   
5.         print $fh = "her um well a hmmm\n";
   
6. }

复制代码

print $fh = "her um well a hmmm\n"; 中的 “=” 的作用，有与没有个结果都一样，如果文件句柄不是\*STDOUT 而是一个真正的文件的句柄，会怎么样呢？

请赐教。

zhlong8

你这里相当于 print ($fh = "her un well a hmmm\n"); 只是个优先级问题

on-fire

zhlong8 发表于 2012-05-25 09:05
你这里相当于 print ($fh = "her un well a hmmm\n"); 只是个优先级问题

$fh就是一个文件句柄引用，为何要赋值呢？并且我试过要不要“=”，结果都是一样。我的关注点不是优先级问题，是为何有这个“=”号。

zhlong8

on-fire 发表于 2012-05-25 10:44
$fh就是一个文件句柄引用，为何要赋值呢？并且我试过要不要“=”，结果都是一样。我的关注点不是优先级 ...

我把这个代码 Perl 解释器是怎么理解的给你写出来你不就明白了为什么有没有 '=' 效果一样。

你明白了为什么结果一样不就很直接的发现这里是 typo，只要传入的句柄不是 STDOUT STDERR 就立马露馅了

on-fire

zhlong8 发表于 2012-05-25 10:58
我把这个代码 Perl 解释器是怎么理解的给你写出来你不就明白了为什么有没有 '=' 效果一样。

你明白了 ...

感觉应该不是typo(打字排版错误)，如果$fh 不是STDOUT或STDERR，而是一个真正的文件句柄，是否真的需要赋值给它呢？纠结中。。。
问题是以我现在的知识水平写不出验证的例子。

zhlong8

on-fire 发表于 2012-05-25 11:33
感觉应该不是typo(打字排版错误)，如果$fh 不是STDOUT或STDERR，而是一个真正的文件句柄，是否真的需要 ...

你对 Perl 的文件句柄怨念很深啊

由于历史原因文件句柄在只能保存在 Typeglob 里面的，所以任何可以当句柄用的东西除了 tie 实现的假的句柄外都是对 typeglob 的封闭。

typeglob
    比如 open *STDOUT, '<', 'file';
    print {*STDOUT} 'testing';

bareword
    比如 print FH 'something';
    在编译时会转成对应的 typeglob *FH

scalar
   比如 open $fh, '<', 'file'
   在运行时会创建一个匿名的 typeglob，然后 $fh 是这个 typeglob 的引用，关于句柄的所有操作对 typeglob 的引用都会自动解引用

而 tie filehandle 等于重载了 IO 相关的操作，和这里的议题无关。

zhlong8

查了下还可以用字符串，意义同 bareword 只是改成了运行时。

flw

这个问题很简单呀。第一个回帖就已经说的很清楚了。

楼主说有没有等号是一个效果，但其实不是一个效果。
有等号的时候，是 print 这个字符串（赋值语句的结果）到当前选中（select）的文件句柄上去。
没等号的时候，是 print 这个字符串到 $fh 这个表达式指名的文件句柄上去。

on-fire

zhlong8 发表于 2012-05-25 12:19
你对 Perl 的文件句柄怨念很深啊

由于历史原因文件句柄在只能保存在 Typeglob 里面的，所以任何可以 ...

谢谢您花时间查资料并回复我。获益了，看来要好好研究一下Typeglob（类型团）这个概念。

on-fire

flw 发表于 2012-05-25 12:36
这个问题很简单呀。第一个回帖就已经说的很清楚了。

楼主说有没有等号是一个效果，但其实不是一个效果。 ...

最初的想法与您一致，但觉得没有必要放个“=” 所以问问，获益领教了。谢谢。