ブログ エントリー
-
[perl] STDERR の抑止と復帰
プログラム - 2013/03/08 11:25:57use strict; use warnings; open(my $nulldevice, '>', '/dev/null'); # NULL デバイスを開く my $stderr_bak = *STDERR; # STDERR をバックアップ *STDERR = $nulldevice; # STDERR の出力先を NULL デバイス にする print STDERR 'foo'; # ← 表示されない *STDERR = $stderr_bak; # STDERR の復帰 close($nulldevice); # 開いた NULL デバイスを閉じる print STDERR 'bar'; # ← 表示されるNULL デバイスが開けないってことは無いと思うので、特にエラー処理は入れてません。
-
[perl] STDERR の抑止と復帰
http://0pm.0am.jp/memo3/index.cgi?entry=20130308_112557

