eval で alarm

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

eval だと

#!/usr/local/bin/perl
use strict;
use warnings;

eval {
    local $SIG{ALRM} = sub { die };
    alarm 10;
    sleep 5;
};
if ($@) {
    print "ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!!! \n";
    exit;
}
alarm 0;
print "ちょｗｗｗおまｗｗｗｗｗ\n";

こう? $SIG{ALRM} を局所化できる。

Perlネットワークプログラミング―ソケットの使い方からクライアント/サーバーシステムの開発まで では eval 使ってるのが多いですね。