[問題] 程式被Blocking住了要怎麼出來
繼之前被socket blocking住，用thread解決了，
這次寫Rs-232的程式又被block住，想說這樣也不是辦法，就去找alarm的用法。
以下是Advanced Perl Programming.的範例，可是我執行後還是block住了
等好久都不會出來>_<，請問alarm到底要怎麼用阿。
$|=1;
$SIG{ALRM} = \&timed_out;
eval {
alarm (5);
$buf = <>;
alarm(0); # Cancel the pending alarm if user responds.
};
if ($@ =~ /GOT TIRED OF WAITING/) {
print "Timed out. Proceeding with default\n";
}
sub timed_out {
die "GOT TIRED OF WAITING";
}
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.133.103.109
推
10/25 22:15, , 1F
10/25 22:15, 1F
→
10/25 22:15, , 2F
10/25 22:15, 2F
推
10/25 22:21, , 3F
10/25 22:21, 3F
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
