Re: [HORS_SUJET] Pour continuer avec SED

[Stephane Camberlin <urnammu@free.fr>]

"Stordeur Franck 785966045" <franck.stordeur.595@B-RAIL.BE> writes:

> Bonjour,
Bonjour,
 
> J'ai un log sendmail que j'aimerais pouvoir modifier de la sorte : 
> remplacer toutes les occurences xxxxx@YYY.domain.com par xxxxx@domain.com
> xxxxx étant n'importe quoi, le nombre de caractères n'étant pas 
> forcément de 5.
> domain.com étant le nom de mon domaine.
> YYY étant n'importe quoi, le nombre de caractères n'étant pas forcément de 3.

ça a l'air de marcher en perl:

#!/usr/bin/perl

open(LOG,"/path/mail.log");
open(OUT,">/path/mail_out.log");

foreach $i (<LOG>){
  $i =~ s/<(.*\@)\w*\.(domaine.com)>/<$1$2>/i; 
  print OUT $i;
}

close(LOG);
close(OUT);

cordialement,
stef