Perlについての質問箱 45箱目
■ このスレッドは過去ログ倉庫に格納されています
0088デフォルトの名無しさん
2010/11/02(火) 00:25:02例外処理でPerlそのものが落ちるようです。
#OS: WindowsXP SP3
#ActivePerl-5.12.2.1202-MSWin32-x86-293621
#!/usr/bin/perl -w
use encoding "utf8";
use threads;
my @threads;
for(1..5){
#例外処理で落ちる
my $thread = threads->new(\&my_thread, $_);
push(@threads, $thread);
}
foreach(@threads){
$_->join or die $!;
}
exit;
sub my_thread {
threads->yield();
sleep(1);
return 1;
}
■ このスレッドは過去ログ倉庫に格納されています