サイドコンテンツ 【メイン】

推し：加藤安那

加藤安那 (ユメオイ少女)

Twitter: @_hana_celeb_

最新 15 件のエントリー

カテゴリ

管理

サイドコンテンツ 【サブ】

ブログ エントリー

  • [perl] STDERR の抑止と復帰

    プログラム - 2013/03/08 11:25:57
    
use 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 デバイスが開けないってことは無いと思うので、特にエラー処理は入れてません。