awk et boucle for

Version imprimable

awk et boucle for

Bonjour a tous.

J'ai un fichier texte avec des enregistrements ..1000 pour être précis.
Dans chaque enregistrement j'ai un champ =866 avec des infos.
La commande nawk ci-dessous formate le champ =866, le transforme en =952 et change des données à l’intérieur.
Le awk marche bien, mais un des champs doit avoir une valeur incrémentée de 1 pour chaque enregistrement dans le fichier :

Exemple du fichier (je colle pas tout car il est long)
Code:

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 =866 \\$aBNCS-CH 1989 (1990)1991(1992)1993-96(1997)1998-2001(2002-2005)2006-2008.
Le champs =866 devient ça une fois formaté :

Code:

=952 \\$aBNCS-CH\\$bBNCS-CH\\$h1989\\$oBNCS-CH0000001\\$pBNCS-CH0000001\\$yJNL

La commande est:

Code:

nawk -F"[\$a ]" '{if ($0~/^=866/) {print "=952",$3"$a"$5$3"$b"$5"\\\\$h"$6"\\\\$o"$5"0000001\\\$p"$5"0000001\\\\$yJNL" } else {print $0}}' revistas1.txt >luis.txt

Le problème c'est que je voudrais ces 2 champs là incrémentés de 1 pour chaque enregistrement:

Code:

$o"$5"0000001\\\$p"$5"0000001

Donc le $o et $p pour l'enregistrement suivant serait:
Code:

1 2 3 4 $o"$5"0000002\\\$p"$5"0000002 ... dernier $o"$5"0000001000\\\$p"$5"0000001000
J'ai pensé faire une boucle for dans le awk, mais je n'y arrive pas.
Quelqu'un connait l'astuce?
Ça serait quelque chose comme:

Code:

$o"$5"000000"$i\\\$p"$5"000000"$i

D'avance merci

28/09/2011, 16h56
N_BaH

Bonjour,

une idée :

Code:

printf '%s\n' {a..l} | awk 'increment = sprintf("%.6d\n",(++increment)) {print "increment = "increment}'
28/09/2011, 17h00
ldiaz

Bonjour

cette commande que vous proposez, je l’exécute après le nawk?
La commande nawk je dois l’exécuter obligé car ça me formate mon fichier texte. A quel moment j’exécute votre commande?
Je dois passer le nom de fichier quelque part ?

D'avance merci
28/09/2011, 17h16
N_BaH

c'est seulement pour te montrer comment incrémenter une variable qui doit respecter un certain format.
Il faut l'adapter, et le replacer dans ton code awk.
28/09/2011, 17h28
ldiaz

Uffff
je sais pas si je vais reussir a faire ça tout seul ;)

donc ça serait:

Code:

nawk -F"[\$a ]" '{if ($0~/^=866/) {print "=952",$3"$a"$5$3"$b"$5"\\\\$h"$6"\\\\| awk 'increment = sprintf("%.6d\n",(++increment)) {print "increment = "increment}'\\$yJNL" } else {print $0}}' revistas1.txt >luis.txt
28/09/2011, 18h08
N_BaH

nan, plutôt :

Code:

nawk -F"[\$a ]" '{if ($0~/^=866/) { increment = sprintf("%.6d",(++increment)); print "=952",$3"$a"$5$3"$b"$5"\\\\$h"$6"\\\\increment\\$yJNL" } else {print $0}}' revistas1.txt >lu is.txt

plus ou moins

Bonsoir

alors là je pige pas, regarde ce que ça donne:

Code:

Code:

nawk -F"[\$a ]" '{if ($0~/^=866/) { increment = sprintf("%.6d",(++increment)); print "=952",$3"$a"$5$3"$b"$5"\\\\$h"$6"\\\\increment\\$yJNL" } else {print $0}}' revistas1.txt >luis.txt
Code:

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\\increment\$yJNL
Je suppose que increment c'est la variable qui doit s’incrémenter ?
Excuse mais je ne suis pas admin sys, c'est comme du chinois ces codes.
EN fait ce que je voudrais c'est que à 2 endroits différents de la chaine, apparaisse un code + son incrément
Le code est une suite de 5 zéros et coller à ça l’incrément
Donc ça ferait:
000001
000002
...
000001000
La ligne =952 devrait etre comme ceci:

Code:

=952 \\$aBNCS-CH\\$bBNCS-CH\\$h1989\\$o000001\\$p000001\\$yJNL

Le registre suivant comme ceci:

Code:

=952 \\$aBNCS-CH\\$bBNCS-CH\\$h1989\\$o000002\\$p000002\\$yJNL

Etc jusqu'a 1000.

T'en penses quoi? c'est faisable?
D'avance merci

ok, donc pas de formatage (c'est moins drôle) :

Code:

1
2
3
4
5
6
7
awk -F"[\$a ]" '{
   if ($0~/^=866/) {
      print "=952",$3"$a"$5$3"$b"$5"\\\\$h"$6"\\\\$o"$5"000000(++inc)"\\\$p"$5"000000"inc"\\\\$yJNL"
   } else {
      print $0
   }
}' revistas1.txt >luis.txt

A ouais? jejeje tu veux du formatage?

Bon regarde, ça donne ceci:

Code:

1
2
3
awk -F"[\$a ]" '{if ($0~/^=866/) {print "=952",$3"$a"$5$3"$b"$5"\\\\$h"$6"\\\\$o"$5"000000(++inc)"\\\$p"$5"000000"inc"\\\\$yJNL"} else {print $0}}' revistas1.txt >luis.txt
awk: 1: unexpected character '\'
awk: line 1: runaway string constant "} else {pr ...

Y'a un " de trop?

c'est un " qui a disparu lors de la copie.

Code:

1
2
3
4
5
6
7
8
awk -F"[\$a ]" '{
   if ($0~/^=866/) {
      print "=952",$3"$a"$5$3"$b"$5"\\\\$h"$6"\\\\$o"$5"000000"(++inc)"\\\$p"$5"000000"inc"\\\\$yJNL"
#                                                             ^ici
   } else {
      print $0
   }
}' revistas1.txt >luis.txt

29/09/2011, 09h20
ldiaz

Bonjour,

Hooo cool cette fois c'est la bonne.
Merci mil fois c'est cool.

Si t'as besoin d'aide avec postgres orace ou mysql, avise.

Ciao