Perlスレッドが正しく印刷されない

Question

別の投稿に明示的な例がある場合は、お知らせください。スレッドからのインターリーブ印刷に問題があります。すべてのスレッドで共有変数を使用してスレッドを制御しようとしています。以下の擬似コードは私のコードを強調し、問題を与えてくれます。スレッドを印刷待ちにするためにすべてを試しました。現在、わずかな出力回線しか破棄されていません。

#!/usr/bin/perl                                 
use threads; 
use threads::shared; 

my $PRINTFLAG :shared = 1; 

Run_Threads(); 

sub Do_stuff{ 

    lock($PRINTFLAG); 
    cond_wait($PRINTFLAG) until $PRINTFLAG == 1; 
    $PRINTFLAG = 0; 
    print "$working\n"; 
    $PRINTFLAG =1; 
} 

スレッドを生成するためのサブスレッド。

sub Run_Threads{ 

    my @threads; 

    for (my $i = 1; $i <= 5; $i++){ 
     push @threads, threads->create(\&Do_stuff); 
    } 

    foreach (@threads){ 
     $_->join; 
    } 
} 

Answer 1

各スレッドは独自のハンドルを持っているため、独自の出力バッファいることと思われます。 threads::sharedのメカニズムを使ってPerlファイルハンドルを共有できないことを考えると、それほど驚くことではありません。

つまり、ロックを解除する前にハンドルのバッファをフラッシュする必要があります。前->flushと->autoflushメソッドを使用する（ただし$|=1;用）：

select->flush();  # Flush handle currently default for print. 

それとも、そのハンドルへのすべての印刷後に自動的にフラッシュのperlを持つことができます：あなたは、明示的にそれを行うことができます

select->autoflush(1); # Autoflush handle currently default for print. 
$| = 1;    # Autoflush handle currently default for print. 

注意Perl 5.14の場合は、IO::Handleもロードする必要があります。ところで

---

、

my $PRINTFLAG :shared = 1; 
lock($PRINTFLAG); 
cond_wait($PRINTFLAG) until $PRINTFLAG == 1; 
$PRINTFLAG = 0; 
print "$d\n"; 
$PRINTFLAG =1; 

は、それがThreads::Queueを使用するために、単純な/より良いのスレッドで私の経験から

my $PRINTMUTEX :shared; 
lock($PRINTMUTEX); 
print "$d\n"; 

Answer 2

に単純化することができます。

私は2つのキューを持っています.1つはスレッドを実行するタスク用で、もう1つはスレッドからの結果用です。

私のマスタースレッドでは、結果のキューを確認してから印刷します。したがって、結果ファイルなどにアクセスする競合はありません。