Bonjour a tous,

j'ai un fichier avec unse succetion de registre tels que celui ci:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
=LDR  00795nas  2200193 i 4500
=005  20100728125529.0
=008  920520c1989\\\\-usmr\\\\\\\\\0\\\\\eng\\
=022  0\$a1040-2446
=041  0\$aeng
=210  1\$aAcad Med
=245  00$aAcademic Medicine / $cAssociation of American Medical Colleges.
=260  \\$aPhiladelphia : $bAssociation American Medical Colleges, $c1989.
=300  \\$c24 cm.
=310  \\$aMensual
=530  \\$aDisponible en versi{dbldotb}n electr{dbldotb}nica desde 2000.
=650  \4$aMedicina.
=780  00$aEs continuaci{dbldotb}n de. $t"Journal of Medical Education" $xISSN 0022-2577
=856  \\$uhttp://ovidsp.ovid.com/ovidweb.cgi?T=JS&MODE=ovid&NEWS=n&PAGE=toc&D=ovft&AN=00001888-000000000-00000   $zAcceso al texto completo
=952 \\$aBNCS-CH\\$bBNCS-CH\\$h1989\\$oBNCS-CH0000001\\$pBNCS-CH0000001\\$yJNL
Mon but est de creer une nouvelle ligne avec les données de la ligne qui commence par =952, sauf le champ $y qui lui sera toujours le meme et comme valeur $yEJNL

A la final le registre sera comme ceci:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
=LDR  00795nas  2200193 i 4500
=005  20100728125529.0
=008  920520c1989\\\\-usmr\\\\\\\\\0\\\\\eng\\
=022  0\$a1040-2446
=041  0\$aeng
=210  1\$aAcad Med
=245  00$aAcademic Medicine / $cAssociation of American Medical Colleges.
=260  \\$aPhiladelphia : $bAssociation American Medical Colleges, $c1989.
=300  \\$c24 cm.
=310  \\$aMensual
=530  \\$aDisponible en versi{dbldotb}n electr{dbldotb}nica desde 2000.
=650  \4$aMedicina.
=780  00$aEs continuaci{dbldotb}n de. $t"Journal of Medical Education" $xISSN 0022-2577
=856  \\$uhttp://ovidsp.ovid.com/ovidweb.cgi?T=JS&MODE=ovid&NEWS=n&PAGE=toc&D=ovft&AN=00001888-000000000-00000   $zAcceso al texto completo
=952 \\$aBNCS-CH\\$bBNCS-CH\\$h1989\\$oBNCS-CH0000001\\$pBNCS-CH0000001\\$yJNL
=952 \\$aBNCS-CH\\$bBNCS-CH\\$h1989\\$oBNCS-CH0000001\\$pBNCS-CH0000001\\$yEJNL
Cela peux t'il se faire en perl? quelqu'un connait le code?
D'avance merci