nicht angemeldet
OK, hier muss ich nochmal etwas loswerden: :-)
Besonders am Anfang gilt: "Buttom-Up, nicht Top-Down".
Hi Philipp,
hab ich ja gemacht, jedenfalls fast :-)
weiss wo der Fehler ist und dann hier ins Forum gestürmt kommt (nimms nicht persönlich!).
Keine Sorge. Jedenfalls habe ich zuvor stundenlang selber gesucht, eh ich hier gepostet hatte. Es gibt ja auch solche, die gleich den anderen die die Fehlersuche aufdrücken wollen.
Anyway, nun bin ich der Lösung ja schon sehr nahe und Du hast mir dabei geholfen.
Hoffe du hast es hingekriegt?
Jausi, hab ich. Zwar letztlich dann doch nicht mit dem break-Befehl (warum auch immer), aber hier kommt die entscheidende Stelle:
Inhalt öffnen, Inhalt einlesen, wieder schliessen
open(MAIN3,"./body.txt") || die $!;
@main3 = <MAIN3>;
chomp @main3;
close(MAIN3);
$x += 1;
for (; $x <= $#$Lines; $x++) {
push (@lines_of_body,$Lines->[$x]);
}
foreach (@lines_of_body) {
last if ($mailnummer eq "alt");
my $delete_status = 0;
foreach my $stop_word (@main3) {
if ($_ =~ m/$stop_word/i) {
$pop3->delete($msgno);
$delete_status=1;
$mailnummer=alt;
$gel_durch_body=1;
print qq~<TR><TD>$msgno</TD><TD>$from</TD><TD>$subject</TD><TD>gel(b)</TD></TR>~;
last;
}
}
}
} # end mailnumer=alt?
Diesmal ohne Gesamtkontext, aber ich glaube, Du kannst Dir inzwischen denken, wie was hier gemeint ist, gelle?
Also, vielen Dank zu Dir in die Schweiz für die Hilfe, endlich kann ich den Spammern ein Schnippchen schlagen :-)))
Danke, vüll Jröß und bess demnähst (das war kölnische Mundart)
Bitte und bis zum nöchschte mol (schwiizerdütsch)
Jausi, bis zum nöchschste mol :-)
Grüße Norbert