POP3 Email-Daten auslesen

[PeterK]

Hallo

Für die Auswertung meiner Emails versuche ich seit Tagen schon Absender, Betreff und Body mittels POP3Client aus zu lesen und ab zu speichern.
Leider funktionieren selbst einfache Befehle nicht.

Dier der Beispielcode des Verwendeten MAIL::POP3Client Moduls das ich verwende:

  #!/usr/local/bin/perl

  use Mail::POP3Client;

  $pop = new Mail::POP3Client( USER     => "me",
                               PASSWORD => "mypassword",
                               HOST     => "pop3.do.main" );
  for ($i = 1; $i <= $pop->Count(); $i++) {
    foreach ( $pop->Head( $i ) ) {
      /^(From|Subject):\s+/i and print $_, "\n";
    }
    print "\n";
  }

Selbst ein print "test"; Befehl hinter die Zeile :
/^(From|Subject):\s+/i and print $_, "\n";
funktioniert nicht und wird einfach ignoriert. Geschweige denn sachen wie pop/push etc.

Weiss jemand Rat, oder hat eine einfache schon bestehende Lösung?

Gruss
Peter

[hgdorn]

Schon einmal extra ein falsches Password eingegeben, was passiert dann?
Vielleicht mal den Debug-Level hochsetzen (siehe CPAN Abschnitt Methods)

[PeterK]

Bei einem falschen Passwort wird Anzahl der Mails -1 ausgegeben.
Weitere Fehlermeldungen gibt es nicht. Das Debug Flag war bis jetzt immer aktiv. (Vielleicht ist dass ja das Problem).

Habe aber gerade eine Methode für den Absender ausprobiert die funktioniert hat:

      @kopf=$_;
      @von=grep(/From:\s+/i,@kopf);
      print @von;

Mit einer Einschränkung: Nehme ich anstatt '@Kopf' gleich '$_', funktioniert der Code nicht mehr.

Bevor ich also noch weiter Fehler suche, versuche ich es erstmal so zu überbrücken und nehme mir die Frechheit raus bei Bedarf nochmal nach zu Fragen. Bis dahin danke erstmal für die Antwort.

Gz