nicht angemeldet
Hallo liebe Surferinnen und Surfer!
open(DAT,"dat.dat");
@dat = <DAT>;
close(DAT);
»»
Soweit alles richtig (Dateizugriffssymbol nicht vergessen); Du solltest aber immer Fehlerroutinen
schreiben um zu sehen, ob Dein Programm einen Fehler hat oder der Verzeichnispfad nicht stimmt
open (DAT, "<dat.dat") || die "Text";
for(@dat)
muss foreach (@dat) heissen
{
»» ($nick, $pwd, $email, $hp) = split(/;/, $_);
»» if($Formular{'nick'} eq $nick)
ist formal richtig, wenn Du wirklich den Wert im Hash 'Formular' mit dem Schlüssel
'nick' mit der Variablen nick vergleichen willst
Andere Ausdrucksmöglichkeiten:
1.) print "...." if ($Formular{'nick'} eq $nick);
2.) ($Formular{'nick'} eq $nick) && print "...";
»» {
»» print "<ul>\n<li>$email</li>\n<li>$hp</li>\n</ul>\n";
»» }
}
Auf bald dann...
Logo, gib kurze Nachricht wenn das Problem gelöst ist !!
Viele Gruesse an alle PERL-Verrückten und Programmierer !!
Cosmo