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 ...

如何在不取消 use strict 的情况下使此结构正常工作?

Answer 1

尝试这个:

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

星号表示 typeglob。由于没有表示文件句柄的符号，因此您必须使用 typeglob 符号，即星号。