Perlでのタイムアウト

Perl

ってことですが、こんなソースでどう？



#! /usr/local/bin/perl

use strict;

use warnings;

$SIG{ALRM} = \&timeout;

alarm 10;

sleep(15);

print "ﾁｮwwwｵﾏwwwww\n";

alarm 0;

sub timeout {

    print "ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!!! \n";

    exit;

}

これを実行すると、、、



% timeout.pl

ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!!!

%

sleepを5秒に設定して実行すると、、、



% timeout.pl

ﾁｮwwwｵﾏwwwww

%

となります。m(_ _)m

eval使う場合が多いですかね。