die関数のエラー出力先について

Question

いつもお世話になっております。

以下のようなスクリプトを書き、
imapサーバの死活監視を行おうと思っております。

#################################
my $imap = Mail::IMAPClient->new(
                                Server   => $hostname,
                                User     => $username,
                                Password => $password,
                                Timeout  => 5,
                                ) or die "Cannot connect to $hostname imap:143. $!";

-------処理は続きますが割愛-------
#################################

そこで、1つ壁にぶつかったので質問いたしました。

+++壁の内容+++
imapサーバに何らかの理由で接続できなかったケースを考慮して、
die関数を使おうと思ったのですが、
このdie関数は、「引数に指定した値を標準エラー出力に出力」するとのことなのですが、
引数に指定した値を任意のファイルに出力する方法はないのでしょうか？？

+++やりたいことの背景+++
imapサーバを監視するPerlスクリプトは、
実行するたびに指定したファイルに実行結果と実行時間を出力したい。

実行結果と実行時間を出力したファイルを
別の監視プログラムが監視するという二重構造の監視を行いたい。

imapサーバを監視するPerlスクリプトの実行結果を、
どうしても任意のファイルに出力したい。
+++++++++++++++++++++++++++++++++

以上です。

よろしくお願いします。

ryu_chan · Accepted Answer

すいません、No.6の記述に間違いを発見しました。

$is_open = open my $fh, ">>", $logfile;
　　　↓　　　↓訂正
$is_open = open $fh, ">>", $logfile;

kumoz · Answer

> eval {
>   my $imap = Mail::IMAPClient->new(
>   Server => $hostname,
>   User => $username,
>   Password => $password,
>   Timeout => 5,
>   ) or die "1 
";
>   my $folders = $imap->folders or die "2 
";
>   $imap->logout();
>
>   # );
> };

No2 です。「全体を」と書いたので、誤解を与えたかもしれません。「質問に書かれていたコード全体」という
意味です。上のコードの場合、or die "1 
"; の次の行で eval を終了する必要があります。new() に失敗した場合は、
次の２行の $imap->folders と $imap->logout() を実行してはならないからです。また、new() に失敗した場合の
エラー処理は、直後に行う必要があります。

my $imap;
eval {
  $imap = Mail::IMAPClient->new(
    Server => $hostname,
    User => $username,
    Password => $password,
    Timeout => 5,
  ) or die "1 
";
};

if ($@) {
  open (FILE, ">>$logfile") or die "$!";
  $data = localtime;
  print FILE "$data FAILURE:$hostname port:143(imap4) failed. 
";
  close (FILE);
} else {
  my $folders = $imap->folders or die "2 
";
  $imap->logout();
  ...

もう１つですが、die "1 
" という書き方は、何ら有益な情報を含んでいず、あまり適切とはいえません。
失敗の原因や失敗した行番号が必要なければ、eval や die を使わずに unless ($imap) { エラー処理 }
とすることもできます。

ryu_chan · Answer

＞その関数の中のdieを捕捉してエラーメッセージを$logfileに出力する、
＞ということは可能なのでしょうか？？？

そのエラーメッセージを書き込むためのopen処理でまたエラーが出たら・・・
ってなると永遠に続きそうですね＾＾；

例えば以下のように、open処理を何回か繰り返して行い、ダメな場合はあきら
めるとかはいかかでしょうか？

my $try_count = 5;
my ($fh, $is_open);

for ( 1..$try_count ) {
  $is_open = open my $fh, ">>", $logfile;
  last if $is_open;
  sleep 1;
}

if ( $is_open ) {
  print {$fh} "$date:@_";
  close $fh;
}

もっといい方法を誰かが提示してくれるかもしれません。

ryu_chan · Answer

シグナルの無効化（デフォルト状態に戻す）は、以下でもいいようです。
（互換性からこちらのほうがいいのかしら）

$SIG{__DIE__} = 'DEFAULT';

ところで、以下のようにエラー処理をする関数を作るのではダメなのでしょうか？

sub error {
open my $fh, ">", "error.log";
print {$fh} @_;
close $fh;

die @_;
}

my $imap = Mail::IMAPClient->new(
Server => $hostname,
User => $username,
Password => $password,
Timeout => 5,
) or error "Cannot connect to $hostname imap:143. $!";

ryu_chan · Answer

その通りです。
dieを実行する前にシグナルを定義しておきます。

スコープを作って、dieを捕捉する範囲を限定するといいかもしれません。

{
local $SIG{__DIE__} = sub {
  open my $fh, ">", "data.txt";
  print {$fh} @_;
  close $fh;
};

die "just die";
}

あるいは、捕捉すべきdieがなくなった段階でdeleteするとかでしょうか。

delete $SIG{__DIE__};

ryu_chan · Answer

__DIE__擬似シグナルを用いて、dieをトラップするのはどうでしょうか？

$SIG{__DIE__} = sub {
  open my $fh, ">", "error.log";
  print {$fh} @_;
  close $fh;
};

kumoz · Answer

全体を eval ブロックで囲むと、die のエラーもトラップされて $@ にセットされると思います。
次は別の例ですが、(1) と (2) は同じエラーメッセージが表示されます。

(1)
open FH, "not_exist" or die "Can't open not_exist: $!";

(2)
eval {
  open FH, "not_exist" or die "Can't open not_exist: $!";
};

if ($@) {
  print $@;
  exit;
}

Tacosan · Answer

やったことはないけど
open(STDERR, ">/some/path/to/file");
みたいなことはできないかなぁ. 必要ならバッファリングも何とかする.

die関数のエラー出力先について

すいません、No.6の記述に間違いを発見しました。

> eval {

＞その関数の中のdieを捕捉してエラーメッセージを$logfileに出力する、

シグナルの無効化（デフォルト状態に戻す）は、以下でもいいようです。

その通りです。

__DIE__擬似シグナルを用いて、dieをトラップするのはどうでしょうか？

全体を eval ブロックで囲むと、die のエラーもトラップされて $@ にセットされると思います。

やったことはないけど

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

DIE擬似シグナルを用いて、dieをトラップするのはどうでしょうか？