Perl:在docs中内联选择FD并不适用于严格的引用

Question

在perldoc中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 ...

如何在不废除的情况下使这个结构工作use strict？

谢谢,

Mazze

Answer 1

试试这个:

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

星号表示typeglob.由于没有用于表示文件句柄的符号,因此您必须使用typeglob sigil(星号).

Answer 2

要防止出现错误消息,Bareword "STDOUT" not allowed while "strict subs" in use at ...您必须使用typeglob:

#!/usr/bin/perl

use strict ;
use warnings ;

my $OK = 1 ;

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