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"; 中的 “=” 的作用，有與沒有個結(jié)果都一樣，如果文件句柄不是\*STDOUT 而是一個真正的文件的句柄，會怎么樣呢？

請賜教。

zhlong8

你這里相當于 print ($fh = "her un well a hmmm\n"); 只是個優(yōu)先級問題

on-fire

zhlong8 發(fā)表于 2012-05-25 09:05
你這里相當于 print ($fh = "her un well a hmmm\n"); 只是個優(yōu)先級問題

$fh就是一個文件句柄引用，為何要賦值呢？并且我試過要不要“=”，結(jié)果都是一樣。我的關(guān)注點不是優(yōu)先級問題，是為何有這個“=”號。

zhlong8

on-fire 發(fā)表于 2012-05-25 10:44
$fh就是一個文件句柄引用，為何要賦值呢？并且我試過要不要“=”，結(jié)果都是一樣。我的關(guān)注點不是優(yōu)先級 ...

我把這個代碼 Perl 解釋器是怎么理解的給你寫出來你不就明白了為什么有沒有 '=' 效果一樣。

你明白了為什么結(jié)果一樣不就很直接的發(fā)現(xiàn)這里是 typo，只要傳入的句柄不是 STDOUT STDERR 就立馬露餡了

on-fire

zhlong8 發(fā)表于 2012-05-25 10:58
我把這個代碼 Perl 解釋器是怎么理解的給你寫出來你不就明白了為什么有沒有 '=' 效果一樣。

你明白了 ...

感覺應(yīng)該不是typo(打字排版錯誤)，如果$fh 不是STDOUT或STDERR，而是一個真正的文件句柄，是否真的需要賦值給它呢？糾結(jié)中。。。
問題是以我現(xiàn)在的知識水平寫不出驗證的例子。

zhlong8

on-fire 發(fā)表于 2012-05-25 11:33
感覺應(yīng)該不是typo(打字排版錯誤)，如果$fh 不是STDOUT或STDERR，而是一個真正的文件句柄，是否真的需要 ...

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

由于歷史原因文件句柄在只能保存在 Typeglob 里面的，所以任何可以當句柄用的東西除了 tie 實現(xiàn)的假的句柄外都是對 typeglob 的封閉。

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

bareword
    比如 print FH 'something';
    在編譯時會轉(zhuǎn)成對應(yīng)的 typeglob *FH

scalar
   比如 open $fh, '<', 'file'
   在運行時會創(chuàng)建一個匿名的 typeglob，然后 $fh 是這個 typeglob 的引用，關(guān)于句柄的所有操作對 typeglob 的引用都會自動解引用

而 tie filehandle 等于重載了 IO 相關(guān)的操作，和這里的議題無關(guān)。

zhlong8

查了下還可以用字符串，意義同 bareword 只是改成了運行時。

flw

這個問題很簡單呀。第一個回帖就已經(jīng)說的很清楚了。

樓主說有沒有等號是一個效果，但其實不是一個效果。
有等號的時候，是 print 這個字符串（賦值語句的結(jié)果）到當前選中（select）的文件句柄上去。
沒等號的時候，是 print 這個字符串到 $fh 這個表達式指名的文件句柄上去。

on-fire

zhlong8 發(fā)表于 2012-05-25 12:19
你對 Perl 的文件句柄怨念很深啊

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

謝謝您花時間查資料并回復我。獲益了，看來要好好研究一下Typeglob（類型團）這個概念。

on-fire

flw 發(fā)表于 2012-05-25 12:36
這個問題很簡單呀。第一個回帖就已經(jīng)說的很清楚了。

樓主說有沒有等號是一個效果，但其實不是一個效果。 ...

最初的想法與您一致，但覺得沒有必要放個“=” 所以問問，獲益領(lǐng)教了。謝謝。