Bonjour a tous,
j'ai un fichier avec unse succetion de registre tels que celui ci:
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
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
A la final le registre sera comme ceci:
Cela peux t'il se faire en perl? quelqu'un connait le code?
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
D'avance merci
Partager