eval で alarm - naoyaのはてなダイアリー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 使ってるのが多いですね。
