-> (FIFO) Problme mit dem Auslesen

[Christian Kruse]

Hoi,

Habe einen FIFO.
Er funktioniert, wenn ich ihn mit
"cat > firstfifo"
fülle, und zum auslesen
"cat firstfifo"
mache.

Du darfst die Zeilen auch voll machen.

open(FIFO,"$fifo") || die "Can't Open fifo: $!\n";
while (<FIFO>)
{
$all=<FIFO>;

if ($abcd ne "")
                {
                print $abcd."<br>\n";
                }
}
close(FIFO);

Ist das 1:1 kopiert? Schau dir mal die Variablen-Namen an. Sinnvoll
waere z. B.

while(<FIFO>) {
  print $_,"<br>\n" unless $_ eq "";
}

Gruesse,
 CK