linux-l: Mails per POP3 abrufen / Perl-FRAGE
Jens Dreger
jens.dreger at physik.fu-berlin.de
Sa Mär 4 01:32:15 CET 2000
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.
Mehr Informationen über die Mailingliste linux-l