fehler beim ausgeben eines hashes - #7737 (Perl/CGI)

Strat

2006-05-22 18:59

User since
2003-08-04
5246 Artikel
ModeratorIn

das $dt in der unteren while-schleife ist nicht deklariert;

Code: (dl )

1
2
3

while( (my $dt, @lines) = each %ENV )  {
  ...
} # while

ich verstehe den Code nicht so recht.

Code: (dl )

solange du eine zeile aus dem FH lesen lesen kannst, wird die zeile $_ zugewiesen
  fuege die zeile (inkl. zeilenumbruch) ans ende von @lines an
  wenn in der Zeile Date: steht, speichere sie in $Datum
  wenn in der Zeile Zeit: steht, speichere sie in $Zeit
  fuege die zeile (inkl. zeilenumbruch) nochmal ans ende von @lines an
  loesche aus $Zeit alle Zeichen, die keine Ziffern sind, egal, ob $Zeit befuellt ist oder nicht
  baue einen Key zusammen => $dt
  ...

%hashref ist ein hash, keine $hashReferenz

Code: (dl )

if ($errorFound eq 1)

eq vergleicht zwei zeichenketten
== vergleicht zwei zahlen
also:

Code: (dl )

if ($errorFound == 1)

(oder, wenn du nur mit 0 und 1 arbeitest, einfach:

Code: (dl )

if ($errorFound)

Code: (dl )

m/NullPointerException/;

hat keine auswirkung\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/