-> (FIFO) Problme mit dem Auslesen

[Aquariophile]

Hallo!

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

Sobald ich ihn aber ibn der Konsole fülle,
und das Auslesen über ein Streamendes PERL-Script machen will,
geht es nicht mehr.

Auszug aus dem Script:

#####################

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

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

######################

Danke!
Aquariophile

[Cheatah]

Hi Aqua,

geht es nicht mehr.

"geht nicht" geht nicht. Fehlerbeschreibung, bitte.

Cheatah

[Aquariophile]

Hi Cheatah!

"geht nicht" geht nicht. Fehlerbeschreibung, bitte.

Fehlerbeschreibung:
Ich seh im Browser nur meine HTML-Formatierungen,
aber nichts von dem was durch den FIFO erscheinen sollte.

Also egal was ich in der Konsole in den FIFO reinschreibe,
wird vom Script das ihr auslesen _sollte_ Nicht angezeigt.

Danke
Aquariophile

[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