nDiki

2014年6月25日 (水)

マンボウが突然の $SIG{__DIE__}

Perl の die がそっけないと感じたので $SIG{__DIE__} した。

 $ perl mola-mola.pl
 がんばって育てたmola-mola.plが…
 _人人 人人_
 > 突然の死 <
  ̄Y^Y^Y^Y ̄
 死因: [後で実装する]
 行:28行目
 Perl プログラム【生きろ!mola-mola.pl】
 #mola-mola.pl /home/naney/mola-mola.pl

こんな感じ。

 #!/usr/bin/perl

 use utf8;
 use warnings;
 use strict;
 use File::Spec;
 use open OUT => ':utf8';
 use open ':std';

 $SIG{__DIE__} = sub {
   my $message = shift;
   if ($message =~ /\A(.+) at (.+) line (\d+)\.\n\z/) {
     my ($volume, $directories, $file) = File::Spec->splitpath($0);
     die <<STR;
 がんばって育てた${file}が…
 _人人 人人_
 > 突然の死 <
  ̄Y^Y^Y^Y ̄
 死因: [$1]
 行:$3行目
 Perl プログラム【生きろ!$file】
 #$file $2
 STR
   }
   die $message;
 };

 die "後で実装する";

参考資料:

スポンサード リンク
[ 6月25日全て ]

About Me

Naney Naney (なにい)です。株式会社ミクシィでマネージャー・プロダクトオーナーをしています。

nDiki1999年1月に始めたコンピュータ日誌を前身とする NaneyWeb 日記(兼パーソナルナレッジベース)です。ちょっとしたノートは nNote にあります。

follow us in feedly

※内容は個人的見解であり所属組織とは関係ありません。

月別インデックス
Process Time: 0.137624s / load averages: 0.69, 0.62, 0.91
nDiki by WATANABE Yoshimasa (Naney, Google profile)
Powered by DiKicker