0

Perl 5.10.1でスレッドを使用していくつかのテストを行っていますが、いくつか問題があります。まず第一に、私は2.6.32-5-amd64（64ビット）のDebian GNU / Linux squeeze/sidを持っています。

これは私のスクリプトです

#!/usr/bin/perl -w
use strict;
use warnings;
use threads;  

sub threadProcess{
    my ($number, $counter) = @_; 
    print "Enter thread #" . $number . "\n";
    while($counter < 10){
        print "Thread #" . $number . ": " . $counter . "\n";
        $counter++;
    }
    print "Exit thread #" . $number . "\n";
}

sub main{ 
    my $counter = 0;

    my $thr1 = threads->create(\&threadProcess, 1, $counter);  
    my $thr2 = threads->create(\&threadProcess, 2, $counter); 

    my $res1 = $thr1->join();  
    my $res2 = $thr2->join(); 

    print "Bye...\n";
}

main(@ARGV);

そしてこれは出力です：

Enter thread #1
Thread #1: 0
Thread #1: 1
Thread #1: 2
Thread #1: 3
Thread #1: 4
Thread #1: 5
Thread #1: 6
Thread #1: 7
Thread #1: 8
Thread #1: 9
Exit thread #1
Enter thread #2
Thread #2: 0
Thread #2: 1
Thread #2: 2
Thread #2: 3
Thread #2: 4
Thread #2: 5
Thread #2: 6
Thread #2: 7
Thread #2: 8
Thread #2: 9
Exit thread #2
Bye...

何が問題なのですか？前もって感謝します！

4

1 に答える 1

4

threadProcessのジョブが非常に短いため、2番目のスレッドが初期化される前に最初のスレッドが終了する可能性があることを除いて、何もありません。

ループに遅延を入れると、スレッドが同時に機能していることがわかります。

while($counter < 10){
    print "Thread #" . $number . ": " . $counter . "\n";
    sleep 1;      # or Time::HiRes::sleep 0.25, etc.
    $counter++;
}
于 2012-05-01T16:12:10.430 に答える