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

[Jens Dreger]

On Fri, Mar 03, 2000 at 06:21:00PM +0100, Robert Gnuschke wrote:
> [...]

#!/usr/bin/perl -w
                ==
> $zaehler = 0;
> $zaehler_zwei = 0;
> foreach $zeile(@gesamte_datei)
> 
>    if ($zeile =~ /From /) {

besser: /^From / 

>       $zaehler++;
>    }
> 
>    $array[$zaehler][zaehler_zwei] = $zeile;

 $zaehler_zwei
 ^

> }
> print "\n\n$array[1][7]\n\n";

Wo wird ueberhaupt $zaehler_zwei raufgezaehlt ?
 
Gruss,

Jens.