🚀 go-pugleaf

Nicolas Iselin <nicolas@iselin.ch> wrote:
> clemi wrote:
Hallo Clemi, Hallo Nicolas,
Merci f�r eure Tips. Ihr seid die Pipe-Meister. Aber... !
Ich habe also folgendes gemacht:
pipe erzeugen mit
mknod mypipe p
scripta.pl: (schreibt 1x pro Sekunde eine Zeile)
#!/usr/bin/perl
print("A: start loop\n");
for($i=0;$i<20;$i++){
print("A: line $i\n");
sleep(1);
}
print ("A: exit loop\n");
scriptb.pl: (liest Zeilen von STDIN und schreibt sie alle 2 Sekunden)
#!/usr/bin/perl
print("B: wait for data\n");
while(<STDIN>){
my $line=$_;
sleep(2);
print("B: $line");
}
print ("B: exit loop\n");
Jetzt die ganze Sache gestartet mit:
scripta.pl > mypipe & ; scriptb.pl < mypipe
Wenn ich nichts tue, dann kommen nach 20 Sek die ersten Zeilen
in der Konsole an und werden dann im 2-Sekunden Takt ausgegeben.
Das ist soweit vern�nftig (Wenn man richtig flushen w�rde, w�rde
die 1. Zeile wohl sofort ausgegeben).
Wenn ich aber Skript a vorzeitig kille, dann sind wieder alle
Daten verloren. Das Resultat sieht dann so aus:
$ scripta.pl > mypipe & ; scriptb.pl < mypipe
[1] 11063
B: wait for data
B: exit loop
[1] + Terminated scripta.pl > mypipe
Ausser Spesen nix gewesen ;-)
Gr�sse
Rolf


Sent via Deja.com http://www.deja.com/
Before you buy.