Dotaz: Perl a pojmenovaná roura

[poiuz]

Potřebuju použít pojmenovanou rouru a pořád bojuju s neznalostí Perlu a Bashe. Nevíte proč následující kód nic nevypíše nic? Pokud dám open v subrutině input do while cyklu, funguje to. Já ale potřebuju aby proběhl jen jeden open a nevím kde je chyba. Děkuji moc za odpověď.

#!/usr/bin/perl
use IO::Handle;

system("rm pipe");
system("mkfifo pipe");

unless ($pid = fork()) {
	&input;
}else{
	&output;
}

sub input {
	$FILE = "pipe";
	open(my $log, '>>', $FILE);
	while(1){
		$log->autoflush(0);
		print $log "XXX";
	}
}

sub output {
	open (READER, "pipe");
	while(1){
		@raw_data=<READER>;
		print $raw_data[0];
	}
}

Odpovědi

[pht]

race condition

[ph0enix]

Zkus omezit pocet zapisu a cteni a uvidis, ze jak ctemi tak i zapis funguje, jen v nekonecne smycce to proste nepujde takto zaraz cist i psat … Co se vlastne snazis vytvorit?

use strict;
use IO::Handle;

my $pipe        = 'pipe';
my $pid;

system("rm $pipe");
system("mkfifo $pipe");

unless ($pid = fork()) {
        &input;
} else {
        &output;
}

sub input {
        my $log;
        my $count       = 10;

        open($log, '>>', $pipe) or die $!;
        $log->autoflush(0);
        while($count > 0){
                print $log "test ", $count--, "\n";
        }
        close($log);
}

sub output {
        my $line;

        open(READER, '<', $pipe) or die $!;
        while($line = <READER>){
                print $line;
        }
        close(READER);
}

[pht]

Pořád tam máte tu samou race condition.

[Ondra]

Race condition tam bylo spatne, ale hlavni problem, kterej jsem s tim mel bzlo opomenuti newlineu pri zapisu do roury. Takova blbost a tolik casu jsem s tim travil dekuji za pomoc!