Pamtoffel: Daten eines Hashs anzeigen

Beitrag lesen

Hallo Freunde der Volksmusik,

Betr.:  es werden nicht alle Daten eines Hashs angezeigt

Folgende Situation:
In einer HTML-Seite befinden sich zwei Eingabefelder (input type="text" name="name" - und - textarea name="text" rows=6 cols=80) mit deren Hilfe ich die getaetigten Eingaben ueber ein CGI in eine Textdatei speicher (Inhalt der Textdatei sieht dann so aus:  name=Tim&text=Das+ist+Tims+Text&name=Anja&text=Das+ist+Anjas+Text&). Funktionier soweit alles wunderbar.

Nun moechte ich den Inhalt der Textdatei in einer zweiten HTML-Seite wieder anzeigen. Funktioniert eigentlich auch ganz prima, einzig, es wird immer nur der letzte Eintrag der Textdatei angezeigt (trotz meiner unglaublichen while-Schleife). Und genau das ist mein Problem: Was zum Teufel muss ich machen, damit alle Inhalte der Textdatei angezeigt werden ?????
Wenn da jemand ne Loesung haette.........

Anbei mein CGI-Script zum Auslesen der Textdatei:

open (DAT, "<dateneingabe.txt");
$daten = <DAT>;
close (DAT);

%daten = &CGIDatenaufbereiter ($daten);

while (($temp, $wert) = each %daten)
{
  print "$temp : $wert<br>";
  $temp = 0;
}

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

sub CGIDatenaufbereiter
{
local ($cgidatenskalar, $name, $daten);
local @cgidatenliste;
local %cgidatenhash;
if ( $_[0] )
{
$cgidatenskalar = $_[0];
}
else
{
print STDERR "Es wurden keine Daten an den CGIDatenaufbereiter übergeben\n";
}
@cgidatenliste = split(/[&;]/ , $cgidatenskalar);
foreach $listeneintrag (@cgidatenliste)
{
$listeneintrag =~ s/+/ /go;
($name, $daten) = split( /=/ , $listeneintrag);
$name =~ s/%(..)/pack("c",hex($1))/ge;
$daten =~ s/%(..)/pack("c", hex($1))/ge;
$cgidatenhash{$name} = $daten;
}
return %cgidatenhash;
}

.....Ende des Problems