nicht angemeldet
Ok, 2. Versuch:
wie durchsuche ich (mit dem Modul Net::POP3) den emailbody einer mail nach Begriffen, die in einer seperaten Datei stehen, um die Mail dann ggf. zu löschen???????
Nur, der Code bleibt derselbe!
Inhalt öffnen, Inhalt einlesen, wieder schliessen
open(MAIN3,"./body.txt") || die $!;
@main3 = <MAIN3>;
close(MAIN3);
Nun hab ich die relevanten Begriffe in @main3.
Aber dann:
$x += 1;
foreach (@main3) {
for (; $x <= $#$Lines; $x++) {
if ($Lines->[$x] =~ m/$_/i) {
$pop3->delete($msgno);
}
}
}
Das wäre das, was ich selber anzubieten hab. Aber im Versuch tats das eben nicht. Außerdem möchte ich, daß nach dem ersten gefundenen Begriff nicht mehr weiter gesucht wird, weil die Mail ja dann quasi schon gelöscht ist. Quasi aber eben nur, weil sie ganz real erst dann gelöscht wird, wenn $pop3->quit(); gelaufen ist.
Und zum besseren Verständnis des Gesamtscriptes hatte ich halt den Scriptrest auch mal gepostet und den relevanten Teil zwischen die ###########-Linien gesetzt.
Das hab ich aber auch so beschrieben, oder?
Gruß
Norbert