2005-12-06から1日間の記事一覧

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 "ちょwwwおまww…