Discussion :

[coincoin22]

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

[DaZumba]

awk est assez performant pour ce genre de truc.
Avec le fichier

Code titi.txt :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

me donne bien

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.

[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

[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...

[BlaireauOne]

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 :

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jedai]

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 Perl :

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
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ï