perl - 静默 STDERR 和警告

Question

warn 4 与 print STDERR 4 有何不同？

perl -e 'local *STDERR; warn 4'

(输出仍然转到 STDERR )

perl -e 'local *STDERR; print STDERR 4'

(这里没有输出)

Answer 1

warn 触发 $SIG{__WARN__} 。

warn 不使用 $\ 或 $, 。

和 warn 显然使用原始 STDERR 中的文件句柄，正如您所展示的[1]。

不完全是。您的代码还可以证明 warn 直接使用 fd 2，但这被

close(STDOUT);
close(STDERR);
open(STDERR, '>file');
warn(fileno(STDERR)."abc");  # 1abc