如何在Perl中动态切换到STDOUT / STDERR？

发布时间：2020-12-15 22:03:54 所属栏目：大数据来源：网络整理

导读：如果我可以根据某些值或内联表达式(不使用if语句)在打印到STDOUT或STDERR之间切换,我很好奇. print ($someFlag ? STDOUT : STDERR) "hello world!" 显然,该语法不起作用. 解决方法我认为这将会做你想要的： print {$someFlag ? *STDOUT : *STDERR} "hello w

如果我可以根据某些值或内联表达式(不使用if语句)在打印到STDOUT或STDERR之间切换,我很好奇.

print ($someFlag ? STDOUT : STDERR) "hello world!"

显然,该语法不起作用.

解决方法

我认为这将会做你想要的：

print {$someFlag ? *STDOUT : *STDERR} "hello world!";

在print的文档中可以看到一个类似的例子.使用typeglobs使其运行严格.

另一个策略是根据$someFlag的值来定义您自己的打印功能,其功能将不同.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!