Pop3, na sowas

[Rolf]

Hallo, vor ner Stunde schrieb ich hier ins Forum eine Lösung zu Pop3...

das folgende Script hab ich mal vor längerer Zeit getestet (gerade eben auch, dat geiht!!!):
---schnipp---

Mit diesem Script kann ich meine POP3 Mail abholen

zum Lesen der POP-Mail einfach in der Kdo-Zeile eingeben:

perl pop3.pl more

... somit werden die Nachrichten seitenweise angezeigt

Es ist auch möglich die Nachrichten zu speichern, folg. Syntax:

perl pop3.pl > newmsg.txt

use Mail::POP3Client;    
$pop = new Mail::POP3Client( USER     => "rolf.rost",
                             PASSWORD => "höhöhödenkste",
                             HOST     => "145.253.2.14" );

Die Messages zeilenweise ausgeben:

for ($i = 1; $i <= $pop->Count(); $i++) {
print ">----------- Neue Nachricht ---------->\n\n";
foreach $msgline($pop->HeadAndBody( $i, 100 )) {
  print $msgline, "\n";    
    }  
}
---scnapp---

Möglicherweise ist das was für Dich, Einiges ist daran auch zu ändern ;-)

Viele Grüße, Rolf

Na der betreffende wird sich schon melden...

PS:Du brauchst natürlich das Modul
bzw. "Mail-POP3Client.ppd" für den PPM... hmmm.

Falls Du es bei CPAN nicht findest, mail me: ich schick s Dir.