Hallo zusammen,
ich möchte gerne mit Perl meine Mails abholen.
Dies mache ich bis jetzt wie folgt.
use Net:
OP3;
$pop = Net:OP3->new(‚POPServer.de‘);
$pop = Net:OP3->new(‚POPServer.de‘, Timeout => 60, Debug => 1,);
$MailAnzahl = $pop->login(USER,PASS);
$Text = $pop->top(1);
Das Einloggen klappt auch, bloss die Mails landen in einem Array.
Wie kann ich dieses jetzt ausslesen?
Vielen Dank für die Hilfe
S. Winter
Das Einloggen klappt auch, bloss die Mails landen in einem
Array.
Wie kann ich dieses jetzt ausslesen?
Was willst Du denn mit der Mail tun? Ausdrucken? In eine Datei schreiben? An ein Lokales Mail-Programm weiterleiten?
Das Array kannst Du entweder per print-Befehl ausgeben: print @mailarray (auch in eine Datei: print FILE @mailarray) oder über eine foreach(@mailarray)-Schleife zeilenweise auslesen. Kann sein, dass Du binäre Inhalte (z. B. Anhänge) sonderbehandeln musst - kenne mich mit der POP-Library zu wenig aus, um das zu beurteilen.
mfg
sam2810
Mein Problem ist mehr überhaupt an den Inhalt des Arrays zu kommen.
Wenn ich in meinem Beispiel die Variable $Text ausgebe bekomme ich folgenden Inhalt angzeigt ARRAY(0x1dc7c20). Wie komme ich aber jetzt an den Inhalt?
Gruss
S. Winter
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi S.,
Wenn ich in meinem Beispiel die Variable $Text ausgebe bekomme
ich folgenden Inhalt angzeigt ARRAY(0x1dc7c20). Wie komme ich
aber jetzt an den Inhalt?
Was Du hier angezeigt bekommst ist eine Referenz bzw.
Zeiger auf ein Array. Wenn Du vor dieses ein „@“ stellst,
erhältst Du das Array selbst „zurück“:
print @$Text;
Beschäftige Dich am besten mal mit der integrierten
Doku: perldoc perlref
Gruss,
-Andreas.