données avec séparateurs

Version imprimable

13/08/2007, 16h32
coincoin22

données avec séparateurs

Bonjour à tous !

Je vous sollicite beaucoup aujourd'hui ! Mais c'est lundi ! Dur dur !

Je m'explique, j'ai un fichier texte dans lequel j'ai une série de nom sur la première ligne et une autre série sur la deuxième ligne tous séparés par |

nom|prénom|....|age|fgdfg|dgfd|....
Durand|Eric|...|58|fdgd|....

La première ligne étant en relation avec l'autre.

Comment récupérer l'age par exemple ? Je tente le grep sur "age" mais ensuite ??

Merci à tous d'avance
13/08/2007, 17h59
DaZumba
awk est assez performant pour ce genre de truc.
Avec le fichier
Code:

1 2 3 nom|prénom|....|age|fgdfg|dgfd|.... Durand|Eric|...|58|fdgd|....
je veux la 4eme colonne de chaque ligne, le field-separator (FS) etant le pipe | :
Code:

1 2 awk 'BEGIN { FS = "|" } ; { print $4 }' titi.txt
me donne bien

Citation:

age
58

Evidemment, on peut analyser la premiere ligne (les entetes de colonnes) pour trouver le numero de la colonne nommee "age" et rendre le processus un peu plus flexible.
13/08/2007, 18h06
coincoin22

c'est bien ce que je veux faire...!

Car l'age n'est pas forcément à la 4ieme colonne et je peux rajouter des composant avec l'age qui serait du même coup déplacé d'une ou plusieurs colonne ... Je cherche mais tu me mets sur la voie. Je te remercie.

Si tu as d'autres idées je suis preneur. Merci

Coincoin22
13/08/2007, 19h41
D[r]eadLock

Sinon tu peux aussi utiliser cut -d '|' -f <x>, ou x est le numero de ta colonne. Avec une premiere boucle pour trouver la colonne en question...

Citation:

Envoyé par coincoin22

nom|prénom|....|age|fgdfg|dgfd|....
Durand|Eric|...|58|fdgd|....
Dupond|lea|...|21|fdgd|....
dubreuil|lio|...|18|fdgd|....

La première ligne étant en relation avec l'autre.
Comment récupérer l'age par exemple ?

Script avec un paramétrage ;) :

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
 
Cle=nom		#-- argument de recherche, le nom
CleVal=Dupond	#-- nom de la personne
 
Info=age	#-- information demandée, l'age
 
awk -F"|" -v Cle=$Cle -v CleVal=$CleVal -v Info=$Info '
{
	#-- Traitement enreg. n° 1
	if (NR == 1) {
		for (Col=1;Col <=NF;Col++) {
			if ($Col==Cle) {
				print "* champ \""Cle"\" trouvé en colonne "Col
				ColCle=Col
				continue
			}
			if ($Col==Info) {
				print "* champ \""Info"\" trouvé en colonne "Col
				ColInfo=Col
				continue
			}
		}
		if (ColCle!=0 && ColInfo!=0) {
			next
		}
		if (ColCle==0) {
			print "*** Cle : \""Cle"\" non trouvée dans ligne de titre"
		}
		if (ColInfo==0) {
			print "*** Info : \""Info"\" non trouvée dans ligne de titre"
		}
		exit 1
	}
	#-- FIN Traitement enreg. n° 1
 
	if ($ColCle==CleVal) {
		TopCleVal=1
		print "+ "Cle" : "$ColCle", "Info" : "$ColInfo
	}
}
END {
	if (ColCle==0 || ColInfo==0) {
		exit 1
	}
	if (TopCleVal!=1) {
		print "*** Pas de "Cle" : "CleVal" dans le fichier !!!"
	}
}' test

Resultat :

Code:

1
2
3
4
 
* champ "nom" trouvé en colonne 1
* champ "age" trouvé en colonne 4
+ nom : Dupond, age : 21

Perl est plus performant que Awk, et plus flexible, sauf quand on connait déjà awk ou qu'on anticipe de devoir utiliser une machine antédiluvienne (Perl est disponible et installé sur la plupart des Unix/Linux maintenant, et facilement installable sous Windows).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 #!/usr/bin/perl use strict; use warnings; my ($searchfield, $searchval, $fieldname) = (shift, shift, shift); chomp( my $fields = <> ); my @fields = split /\|/, $fields; my %fieldsnum; @fieldsnum{@fields} = (0..$#fields); while( <> ) { chomp; my @vals = split /\|/; if( $vals[$fieldsnum{$searchfield}] eq $searchval ) { print "$searchfield : $searchval, " . "$fieldname : $vals[$fieldsnum{$fieldname}].\n"; last; } }
--
Jedaï