- Perlについての質問箱 64箱目 [転載禁止]©2ch.net
399 ：デフォルトの名無しさん[sage]：2015/09/14(月) 22:58:53.62 ID:DgKRXoMO - スレッドについて教えてください。環境はwin7 ActivePerl。
以下を実行すると、当たり前だが 1 2 1 2 ... と改行されて表示される。
でも、★1にある改行を外すと何も表示されず、Ctrl+Cで終了させても何もない。
更に★2行を丸ごと消すと、 121212121212... と延々と表示される。
なぜこんな動作になるの？
my $t1 = threads->new(\&loop, 1);
my $t2 = threads->new(\&loop, 2);
$t1->join;
$t2->join;
sub loop{
my $v = shift;
while(1){
print $v."\n"; ★1
sleep 1; ★2
}
}
|
|