linux-l: Mails per POP3 abrufen / Perl-FRAGE

[Robert Gnuschke]

> -----Original Message-----
> From: owner-linux-l at mlists.in-berlin.de
> [mailto:owner-linux-l at mlists.in-berlin.de]On Behalf Of Jens Dreger

Ich habe das Script jetzt angepaßt:
------------------------------------
open(LIST,"$mailboxdatei");
   @gesamte_datei=<LIST>;
close(LIST);
$zaehler = 0;
$zaehler_zwei = 0;
foreach $zeile(@gesamte_datei) {
   if ($zeile =~ /^From /)

      $zaehler++;
   }
   $array[$zaehler][$zaehler_zwei] = $zeile;
   $zaehler_zwei++;
}
print "\n\n$array[3][7]\n\n";
------------------------------------

Wenn ich das Script ausführe erhalte ich folgende Fehlermeldung:
Use of uninitialized value at ./mails_auslesen.pl line 30.
Zeile 30 --->     print "\n\n$array[1][7]\n\n";

Wenn ich 'print "\n\n$array[1][7]\n\n";' ausgeben lasse, dann gibt er mir
die 8. Zeile der ersten Mail (bzw. noch deren Header) aus.

Robert.