linux-l: Aenderung...

[Jens Dreger]

Hi Siggi !

Wenn ich Dich richtig verstanden habe, hast Du was gegen Kraftausdruecke.
Nun, da habe ich was fuer Dich: "piep.pl" !

------------------8<-----------------------------------------
#!/usr/bin/perl -w
my $Piep = shift || "**Piep**";

open( ECHTFIES, "<".$ENV{'HOME'}."/BoeseWorte.txt" ) || 
    die "Is' mir doch egal, was andere schreiben...";
chomp (@BoeseWorte = <ECHTFIES>);
close( ECHTFIES );

while(<>) {
    foreach $KraftAusdruck (@BoeseWorte) { 
	s/$KraftAusdruck/$Piep/ig; 
    }
    print;
}
-----------------------8<-----------------------------------

Einfach eine Liste ~/BoeseWorte.txt anlegen, und in .procmailrc
eintragen:

:0 fw
* ^From.*[gewisse Leute]
| /dein/home/dir/piep.pl

und schon erhalten mails die vorher noch richtig boese klangen sogar
Unterhaltungswert ! ;-)

> ich moechte um eure Meinungen bitte:
Um es kurz zu machen, ich halte gar nichts davon, dass die Liste ab sofort
moderiert wird.

Gruss,

Jens.