Bon, j'ai appris à faire des regex chez les Zoulous, je l'admets...
Donc, forcément, l'inclusion du script dans le premier message a tout
fait foirer (parce qu'il contient le script, qui contient des
"Subject:"...).
Bref, voici une version qui chope bien uniquement la première occurrence
du sujet. D'accord, c'est une usine à gaz, mais je dois aller au taf,
pas le temps de faire dans la dentelle :
#!/usr/bin/perl
$input = ""; $message = ""; $subject = 0; $to = 0; $subjfound = 0;
while ($input = <STDIN>) {
$subjfound or ($input =~ /^Subject:(?!.*\[.*\])/ and $subject = 1);
$input =~ /^Subject:/ and $subjfound = 1;
$input =~ /^To:[EMAIL PROTECTED]/ and $to = 1;
$message .= $input;
}
if ($subject and $to) {
$message =~ s/Subject:(.*)/Subject: [BRUIT]\1/;
}
print "$message";
Voilà, voilà... Et encore désolé pour le cafouillage (/me se tape la
tête contre un mur).
JB/WSA/JC
--
j viens de griller mon 8 Go ( pfiou lé enkore sous garantie ) j ai un
exposé a faire sur 95/98/NT/2000 si vs zavez des sites bien detaillés
la dessus ( chuis en ekole d info ) Ze vs serai tte ma vie reconnaissant
-+- Zul in Guide du Neuneu d'Usenet-Epita loupé l'ENS. Té, l'est con-+-
Linux-Azur : http://www.linux-azur.org
Désinscriptions: http://www.linux-azur.org/liste.php3
**** Pas de message au format HTML, SVP ****
