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; 
} 

하위 생성 스레드.

Answer 1

각 스레드마다 고유 한 핸들과 자체 출력 버퍼가있는 것처럼 보입니다. 펄 파일 핸들이 threads::shared의 메커니즘을 사용하여 공유 될 수 없다는 것을 고려하면, 그다지 놀라운 일은 아닙니다.

즉, 잠금을 해제하기 전에 핸들 버퍼를 플러시해야 함을 의미합니다. 전에 ->flush 및 ->autoflush 방법을 사용하려면 (그러나 $|=1;에 대한) :

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

또는 당신은 손잡이에 매 인쇄 후 자동으로 플러시 펄을 가질 수 있습니다 : 당신은 명시 적으로 그렇게 할 수

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

단순화 할 수있다.

두 개의 대기열이 있습니다. 하나는 실행중인 스레드 용이고 다른 하나는 스레드에서 나온 결과 용입니다.

그래서 내 마스터 스레드에서 결과 큐를 확인하고 인쇄합니다. 따라서 결과 파일에 액세스하는 어떠한 충돌도 발생하지 않습니다.