POur ce qui est de Sed, ..., je ne maîtrise pas suffisamment.
par contre en perl, cela donnerait ceci, à vérifier :-)
open(DICO, "") or die "unable to open dico";
@dico = <DICO>;
foreach $line (@dico) {
$line =~ m/(\w+)\s+(\w+)/;
$traducteur{$1} = $2;
}
close(DICO);
open(CVSOLD, "") or die "unable to open cvsold";
$cvscontent = <CVSOLD>;
close(CVSOLD);
foreach $toreplace (keys %traductor) {
$cvscontent =~ s/\b$toreplace\b/$traductor{$toreplace}/g;
}
open(CVSNEW,"") or die "unable to open cvsnew";
print CVSNEW $cvscontent;
close(CVSNEW);
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: mardi 2 décembre 2003 10:35
To: Damien Bouvy
Subject: RE: [linux] Petit script (devrait etre simple mais je suis
comateux)
> En perl, cela devrait être assez simple.
>
> Par contre, je comprends pas le 2ème § : Est-ce qu'il faut changer le
> "Alain" dans le csv old en "user1234" dans le csv new ?
Oui, dans le csv old, tu as des noms de gens. Dans un dico, j'ai d'autres
noms "plus cabalistiques". Les noms "intelligibles" disparaitraient au
profit de leurs correspondants trouves dans le dico.
Voila,
En Perl? Ya pas moyen de faire cela avec des sed/awk/grep/cat/echo etc?
Bogo
"Dit e-mailbericht en alle documenten die ermee verzonden worden,
zijn vertrouwelijk en uitsluitend voor gebruik door de persoon of
de onderneming waaraan ze geadresseerd zijn. Indien deze e-mail
verkeerdelijk bij u terechtkomt, gelieve de afzender te verwittigen
en deze bestanden van uw computer te verwijderen.
Ce message e-mail ainsi que tous les fichiers transmis sont confidentiels
et uniquement destinés à l'usage de la personne ou de l'entité à qui
ils sont adressés. Si vous avez reçu ce message e-mail par erreur,
veuillez en informer l'expéditeur et le supprimer de tout ordinateur."
_______________________________________________________
Linux Mailing List - http://www.unixtech.be
Subscribe/Unsubscribe: http://www.unixtech.be/mailman/listinfo/linux
Archives: http://www.mail-archive.com/[EMAIL PROTECTED]
IRC: efnet.unixtech.be:6667 - #unixtech
