perl - 为什么 perl 的 autodie 功能不包括 "print"？ (有解决方法吗？)

Question

稍微了解一下另一个问题 (Print or die: how to check if a GPFS network mounted file is available) autodie 是一个非常有用的 pragma，因为它进行了各种调用，可能致命的，实际上是致命的。

open 之类的东西 - 编写open or die 是很常见的。

但是autodie的问题是:

print

The autodie pragma does not check calls to print.

你不能强制它:

Cannot make the non-overridable builtin print fatal

没有编写我自己的“print_or_die”子程序，有没有一种方法可以复制类似于 autodie pragma 的东西，它也可以捕获 print 返回码？

(对于这可能相关的场景 - 请参阅上面的链接。写入时出现 NFS 软安装错误，它们不会阻止)

Answer 1

在我看来，你自己有答案:

because it [autodie] makes a variety of calls that should probably be fatal, actually fatal.

据我所知，

print 大多数情况下应该不会致命，因此您提供的解决方法 print_or_die 似乎也是解决方案。