comment imprimer (print) dans un ordre donné? (AWK)

Version imprimable

09/09/2009, 15h12
developpeur82

comment imprimer (print) dans un ordre donné? (AWK)
Bonjour,

dans mon fichier d'origine j'ai:

Test1 ...
Test4 ....
Test2 ...
Test3 ...

j'aimerai imprimer un resultat dans l'ordre de mon code:

Test1
Test2
Test3
Test4

quand je fait:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 ($1 == "Test1"){ print ("a")} ($1 == "Test2"){ print ("b")} ($1 == "Test3"){ print ("c")} ($1 == "Test4"){ print ("d")}
a, d, b et c s'imprime de cette maniere et pas dans l'ordre dans lequel le script a été ecrit (a, b, c et d). Donc selon ce qu'il trouve en premier dans le fichier d'origine...

Comment resoudre ce probleme svp?

Merci d'avance pour votre aide,

Cdt,
11/09/2009, 09h39
ripat

Awk ne s'utilise pas comme un langage procédural normal. Un programme awk s'exécutera pour *chaque ligne* du fichier donné en entrée. Si tu en arrives à te poser la question de l'ordre d'impression, c'est que ton code awk est mal conçu. Du moins dans l'esprit awk. Pourrais-tu donner un exemple simplifié mais représentatif de ton fichier en entrée et de la sortie désirée.

1 pièce(s) jointe(s)

Bonjour,

merci beaucoup pr l'aide...

Je trouve que c'est dommage si on ne peut pas choisir l'ordre de l'impression. AWK est un script permettant de faire des manip sur les formats des fichiers. il est tres legitime lors d'une convertion d'un fichier de format A -> B de choisir un ordre où par exemple les tableau ou mots clés sont definies. le fichier transformé (B) sera ensuite importé dans un soft et donc il faut absolument avoir un format bien determiné pr que l'import se fait...

Je vous envoi le fichier d'origine, converti en PJ

actuellement le fichier converti donne ca:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 -- ' ' units - 0 / -- THP units - Psia 214.696 614.696 1014.7 3014.7 / -- LIQ units - stb/day 21.5899 1155.85 2290.12 3424.38 4558.64 5692.91 6827.17 7961.43 9095.69 10230 11364.2 12498.5 13632.7 14767 15901.3 17035.5 18169.8 19304.1 20438.3 21572.6 / -- WCT units - stb/stb 0 0.4 0.8 / -- GOR units - Mscf/stb 400 820 2000 /
je souhaite avoir absolument ca pour que ca soit ensuite "importable" dans le soft:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 -- LIQ units - stb/day 21.5899 1155.85 2290.12 3424.38 4558.64 5692.91 6827.17 7961.43 9095.69 10230 11364.2 12498.5 13632.7 14767 15901.3 17035.5 18169.8 19304.1 20438.3 21572.6 / -- THP units - Psia 214.696 614.696 1014.7 3014.7 / -- WCT units - stb/stb 0 0.4 0.8 / -- GOR units - Mscf/stb 400 820 2000 / -- ' ' units - 0 /
Je vous enverrai le script aussi si necessaire....

Merci d'avance pr l'aide...

Cdt,

Tu peux travailler avec les range de awk et stocker les blocs de texte dans un tableau indicé par l'ordre d'impression.

Soit en utilisant les n° de lignes pour définir les blocs:
Code:

1 2 3 4 5 NR==7,NR==13 {_in[1]=_in[1] $0 RS} NR==3,NR==6{_in[2]=_in[2] $0 RS} NR==15,NR==19{_in[3]=_in[3] $0 RS} NR==1,NR==2{_in[4]=_in[4] $0 RS} END{for(i=1;i<=4;i++) print _in[i]}
Soit par mot-clé:
Code:

1 2 3 4 5 /-- LIQ/,/^\// {_in[1]=_in[1] $0 RS} /-- THP/,/\// {_in[2]=_in[2] $0 RS} /-- WCT/,/\// {_in[3]=_in[3] $0 RS} /-- \47/,/\// {_in[4]=_in[4] $0 RS} END{for(i=1;i<=4;i++) print _in[i]}
Note: \47 est l'octal de '

11/09/2009, 14h55
lennelei

Awk n'est pas exactement un "script permettant de faire des manip sur les formats des fichiers". Il s'agit plutôt d'un langage permettant de traiter des fichiers lignes par ligne, aussi, pas étonnant qu'il ne soit pas complètement conçu pour faire des tris après coup.

Je ne connais pas suffisamment pour me prononcer sur la solution de ripat, mais en tout cas, perl permettrait très facilement de faire ce genre de traitement (si tant est qu'il ne fasse pas plusieurs giga auquel cas, un peu d'optim serait nécessaire) : il suffirait de lire le fichier en entrée, de stocker dans une table de hashage la clé que tu souhaites trier associée au texte, et de ressortir le tout dans l'ordre des clés.
11/09/2009, 15h25
ripat

Citation:

Envoyé par Alek-C

Je ne connais pas suffisamment pour me prononcer sur la solution de ripat, mais en tout cas, perl permettrait très facilement de faire ce genre de traitement (si tant est qu'il ne fasse pas plusieurs giga auquel cas, un peu d'optim serait nécessaire) : il suffirait de lire le fichier en entrée, de stocker dans une table de hashage la clé que tu souhaites trier associée au texte, et de ressortir le tout dans l'ordre des clés.

C'est très exactement ce que fait mon code awk. Il reste à voir maintenant comment l'intégrer dans le reste du code. Ici, pour l'exemple, j'imprime dans le bon ordre en fin de lecture de fichier mais il est possible de l'imprimer où l'on veut dans le flux de sortie désiré.
11/09/2009, 16h20
lennelei

Bon, je vais pouvoir apprendre des trucs en awk :D

1 pièce(s) jointe(s)

excusez moi mais je n'ai pas vraiment compris comment on utilise la solution. En effet ci joint une parti du code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
($1=="Q-WHTAB") { 
 
	print("-- LIQ units - stb/day")
	i=1
	l=1
 
        while ($i != "=") {
                i++;
        }
        while($l != "<"){
		l++
        }
 
        NbElemQ = l-i-1
        j=i+1
        multQ=0
        nbItrMax= NbElemQ/4
        eps = nbItrMax - int(nbItrMax)
 
                while(multQ<int(nbItrMax)){
                resQ = 4 * multQ
 
                        printf($(j+resQ)); printf("  ");printf($(j+resQ+1)); printf("  ");printf($(j+resQ+2)); printf("  ");printf($(j+resQ+3));print("  ")
 
                multQ=multQ+1
 
                }
 
                if (eps>0.001){
			y = 3
                	nbEps = 4*eps
 
		 	if(int(nbItrMax)==0){
				y = 0
				resQ=0
			}
 
			for(m=1;m<=nbEps;m++){
			printf($(j+resQ+y+m)); printf("  ")
 
			}
	}
                print("/")
			print("")
 
}

visiblement dans le fichier converti cette partie s'imprime en 3ème et moi je la veux en premiere parti comme:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
-- LIQ units - stb/day
21.5899  1155.85  2290.12  3424.38  
4558.64  5692.91  6827.17  7961.43  
9095.69  10230  11364.2  12498.5  
13632.7  14767  15901.3  17035.5  
18169.8  19304.1  20438.3  21572.6  
/
 
-- THP units - Psia
214.696  614.696  1014.7  3014.7  
/
 
-- WCT units - stb/stb
0  0.4  0.8  /
 
 
-- GOR units - Mscf/stb
400  820  2000  /
 
 
-- ' ' units - 
0 /

Par rapport au bout du code, comment dois je definir votre solution? ou tout simplement je la mets à la fin du script? je ne comprend pas à quoi correspond les valeurs de NR (s'agit juste d'un exemple?)

NB: Je vous envoi mon script au cas où il vous etes à comprendre la structure de ce dernier!

Merci encore
Cdt,

11/09/2009, 18h49
ripat

Citation:

Envoyé par developpeur82

NB: Je vous envoi mon script au cas où il vous etes à comprendre la structure de ce dernier!

J'ai déjà parfois du mal à relire mon propre code, je préfère donc repartir d'une feuille blanche plutôt que d'optimiser le code d'un autre, si clair soit-il. Il est parfois plus profitable de jeter un regard nouveau sur un problème sur lequel on bute.

Par contre, si tu veux progresser il faudrait nous donner le fichier brut duquel tu veux extraire l'information comme dans l'exemple de sortie que tu donnes plus haut.
11/09/2009, 19h05
developpeur82

1 pièce(s) jointe(s)

ok merci beaucoup pr l'aide,

je pense que j'ai deja envoyé le fichier d'origine mais je le renvoi....

Merci encore

Cdt,

Citation:

Envoyé par developpeur82

je pense que j'ai deja envoyé le fichier d'origine mais je le renvoi....

Oui, effectivement mais dans un autre post. Je ne pensais pas qu'il s'agissait du même problème. Mais bon, j'ai percuté maintenant.

Alors voilà, sur base du fichier que tu as transmis ci-dessus et de la sortie souhaitée (comprenant celle de l'autre post), voici ce que je te propose. C'est un peu verbeux et répétitif car je n'ai pas factorisé le code pour la lisibilité et la facilité de mise en page. Il y a moyen de créer une seule fonction pour tous les blocs à imprimer et ainsi réduire le code d'environ 75%. A toi de faire ce travail.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 /^Q-WHTAB/{ ligne[1]="-- LIQ units - stb/day\n" for(i=4;i<=23;i++){ sep=!((i-3)%4)?"\n":" " ligne[1]=ligne[1] $i sep } ligne[1]=ligne[1] "/\n" } /^P-WHTAB/{ ligne[2]="-- THP units - Psia\n" for(i=4;i<=7;i++){ sep=" " ligne[2]=ligne[2] $i sep } ligne[2]=ligne[2] "\n/\n" } /^W-WHTAB/{ ligne[3]="-- THP units - Psia\n" for(i=4;i<=6;i++){ sep=" " ligne[3]=ligne[3] $i sep } ligne[3]=ligne[3] "/\n" } /^GO-WHTAB/{ ligne[4]="-- GOR units - Mscf/stb\n" for(i=4;i<=6;i++){ sep=" " ligne[4]=ligne[4] $i sep } ligne[4]=ligne[4] "/\n" } /^LGT-WHTTAB/{ ligne[5]="-- \47 \47 units - \n" ligne[5]=ligne[5] $4 "/\n" } /^PWHTAB/{ ligne6_buffer=sprintf("%s %s %s %s\t",$3,$5,$6,$7) for(i=8;i<=27;i++){ sep=!((i-7)%4)?"\n\t":" " ligne6_buffer=ligne6_buffer $i sep } ligne[6]=ligne[6] ligne6_buffer "\n" } # impression des blocs de données dans le bon ordre END{for(i=1;i<=6;i++) print ligne[i]}

15/09/2009, 10h11
developpeur82
merci infiniment la solution est excellente!!!! :ccool:

cependant je ne la comprend pas tout à fait..dsl:
Code:

1 2 3 4 5 6 7 8 /^Q-WHTAB/{ ligne[1]="-- LIQ units - stb/day\n" for(i=4;i<=23;i++){ sep=!((i-3)%4)?"\n":" " ligne[1]=ligne[1] $i sep } ligne[1]=ligne[1] "/\n" }
qu'est ce que

Code:

ligne[1]=ligne[1] $i sep

fait?

pouvez vous m'expliquer le fonctionnement de sep?

Code:

sep=!((i-3)%4)?"\n":" "

merci beaucoup...c parfait!!!!:ccool:
16/09/2009, 12h06
ripat

Citation:

Envoyé par developpeur82

...
qu'est ce que

Code:

ligne[1]=ligne[1] $i sep

Il s'agit d'une concatenation. On rajoute la chaîne $i et la variable sep à la valeur de ligne[1]. Contrairement à presque tous les autres langages, il n'existe pas d'opérateur de concaténation dans awk. Même le mainteneur/concepteur de GNUawk le regrette:

Citation:

Extrait d'une interview de A.Robbins:
Q: In retrospect, what are the best/worst features of gawk?
(...)
There are some warts inherited from Unix awk and left unspecified by POSIX. These are relatively minor.

The lack of an explicit concatenation operator is an obvious one.
(...)

Citation:

Envoyé par developpeur82

pouvez vous m'expliquer le fonctionnement de sep?

Code:

sep=!((i-3)%4)?"\n":" "

C'est une construction classique d'une condition ternaire:
<condition> ? <valeur si vrai> : <valeur si faux>

Ici la condition est: si le reste de la division de (i-3) par 4 est égale à 0, la valeur de sep devient \n (retour ligne) sinon un espace. Manière concise pour passer à la ligne tous les 4 champs.

!(i-3)%4 sera TRUE si le reste de la division==0 car !0 équivaut à 1 (TRUE)