的Perl：FD的內聯選擇在文檔不符合嚴格的裁判

Question

在the perldoc for print工作，它說，這應該工作：

print { $OK ? STDOUT : STDERR } "stuff\n"; 

但它與use strict不確實，當我再使用引號像

print { $OK ? "STDOUT" : "STDERR" } "stuff\n"; 

我得到

Can't use string ("STDOUT") as a symbol ref while "strict refs" in use ... 

我怎樣才能得到這個結構不d工作與use strict聯繫？

感謝，

Mazze

Answer 1

試試這個：

print { $OK ? *STDOUT : *STDERR } "stuff\n"; 

，星號表示類型團。由於沒有標記來表示文件句柄，因此您必須使用typeglob sigil（星號）。

Answer 2

要防止錯誤信息Bareword "STDOUT" not allowed while "strict subs" in use at ...你必須使用一個類型團：

#!/usr/bin/perl 

use strict ; 
use warnings ; 

my $OK = 1 ; 

printf { $OK ? *STDOUT : *STDERR } "stuff\n" ;