Perlでマルチスレッド2003年3月15日 (土) - Perl ithreads 休日なので、 Perl 5.8.0のマルチスレッドプログラミングで遊ぶ。 use v5.8.0; use strict; use threads; my $thread1 = threads->new(\&main, "One"); my $thread2 = threads->new(\&main, "Two"); $thread1->join; $thread2->join; print "done.\n"; sub main { my ($name) = @_; for (1..10) { print "I am $name ($_)\n"; threads->yield(); } } 以下が実行例。 I am One (1) I am One (2) I am Two (1) I am One (3) I am Two
