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

[Jens Dreger]

On Fri, Mar 03, 2000 at 10:11:29PM +0100, Robert Gnuschke wrote:
> > 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.

Schieb' mal das "$zaehler_zwei = 0;" um 3 Zeilen runter:

[...]
foreach $zeile(@gesamte_datei) {
   if ($zeile =~ /^From /) {
      $zaehler++;
      $zaehler_zwei=0;
   }
}

Gruss,

Jens.