Bonjour,

Je suis spécialisé en VB, VBA..

et je débute en perl, je n'est donc peut-être pas les bons trucs pour programmer au mieux en perl


Je vous explique mon problème:

j'ai 1 fichier1 du style:

//
ID 1254554545
AC 9999999988
UT 127595689
DE 7979797979
PA klgdkflmkdlfg
NR gdg^p*df$^g$^df$g^d$
//
ID 777777777777
AC 6666666666
UT 127599999
//
etc..



et un fichier2 contenant les termes "ID", "AC", "DE"

ce que je veux faire c'est remplacer les "ID", "AC" et "DE" du fichier2 par ce qui suit ID, AC et DE dans le fichier1 et créer un fichier3 résultat des remplacement:

Par exemple:

"ID" remplacé par "1254554545"
"AC" remplacé par "9999999988"
"DE" remplacé par "7979797979"


Pour le moment, j'ouvre le fichier2 d'1 bloc et lit son contenu dans une chaine $textfile2

J'ouvre le fichier1 et le lis ligne par ligne, je teste à chaque fois (avec substr())si les 2 premiers caractères de $ligne sont égaux à "ID", "AC", "DE" si oui alors je substitue "ID" par le reste de la ligne (en utilisant sustr()) dans textfile2

etc.. pour chaque ligne,

et quand j'ai finit de lire le fichier1

je créer le fichier3 avec la chaine textfile2...


Ma question est: Y-a-t'il une facon plus simple de procéder en perl ,


Merci par avance,

Denis