Chercher une chaine avec awk dans un fichier Fermé

Question

Bonjour,
Mon problème est comme suit : 
J'ai un fichier "test" dans lequel je voudrai chercher une chaine exacte entrée par l'utilisateur .
Le fichier test est comme suit :
ch=a.chaine1,b.chaine2
ch1=a.chaine1,b.chaine2
ch2=c.chaine3
ch3=a.chaine4,b.chaine5,chiane6
etc...

Le script doit pouvoir localalisée par ex la chaine "chaine1" ou "chaine3" entrée par l'utilisateur et l'afficher entièrement "a.chaine1" ou encore "c.chaine3".
Si l'utilisateur entre par exemple "chai" le script rend une réponse négative.

Merci d'avance

lami20j · Accepted Answer

root@debian:~# cat fic ch=a.chaine1,b.chaine2 ch1=a.chaine1,b.chaine2 ch2=c.chaine3 ch3=a.chaine4,b.chaine5,chiane6 etc... root@debian:~# cat ccm.pl #!/usr/bin/perl use strict;use warnings; my %h; print "Entrez la chaine à chercher : "; chomp(my $ch = ); while(<>){ next unless /(\w*\.*$ch)/; $h{$1}++; } print keys %h," trouvé ",values %h," fois "; __END__ root@debian:~# perl ccm.pl fic Entrez la chaine à chercher : chaine1 a.chaine1 trouvé 2 fois root@debian:~#

jipicy · Answer

Salut,

Pourquoi avec "awk" ? Un simple "grep" devrait suffire, non ?
La recherche doit renvoyer que la chaine de caractères (avec les 2 caractère précédents) ou la ligne entière ?

sam · Answer

Comment faire alors?

sam · Answer

Le grep ne doit faire ressortir que "a.chaine1" ou "c.chaine3" etc et non pas la ligne entière.

jipicy · Answer

grep -o ".\.chaine3" fichier
 grep -o ".\.chaine3" fichierEt en application :ssh$ cat plop
ch=a.chaine1,b.chaine2
ch1=a.chaine1,b.chaine2
ch2=c.chaine3
ch3=a.chaine4,b.chaine5,chiane6

ssh$ var="chaine3"

ssh$  grep -o ".\.${var}" plop
c.chaine3;-))

sam · Answer

Le grep -o n'existe pas sur aix :(
il n'y a que le grep -w mais qui retourne l'ensemble de la ligne :(

lami20j · Answer

Salut,

voilà, mais ce n'est pas efficace tant qu'on ne connais pas exactement la structure complète de ton fichier

la chaîne à récupérée a toujours le format
LETRRE.chaineNUMERO ?!

root@debian:~# cat fic
ch=a.chaine1,b.chaine2
ch1=a.chaine1,b.chaine2
ch2=c.chaine3
ch3=a.chaine4,b.chaine5,chiane6
etc...

root@debian:~# grep -Eo '[a-zA-Z]\.chaine1' fic
a.chaine1
a.chaine1
root@debian:~#

lami20j · Answer

Le grep -o n'existe pas sur aix :( 
et avec perl ça te vas?

sam · Answer

Je suis désolé mais ça ne marche pas.
Voici le résultat d'execution sur le fichier fic :
grep -E "[a-zA-Z]\.chaine1" fic
résultat :
ch=a.chaine1,b.chaine2
ch1=a.chaine1,b.chaine2

Le paramètre "o" n'existe pas pour grep sur aix

lami20j · Answer

et ça?perl -ne 'print $1,"
" if /=(\w*\.\w+1),/' fic--

lami20j

jipicy · Answer

Ben désolé, tu ne l'avais pas spécifié aussi...

En plus je me suis aperçu qu'il manquait le paramètre "\b" à l'expression pour quelle soit exacte :grep -o ".\.chaine3\b" fichierEssaye avec "perl" alors comme suggéré par" lami20j".

;-))

sam · Answer

Mais elle est où ma variable sur laquelle je vais effectuer ma recherche???

sam · Answer

Pour l'instruction perl, elle ne répond pas à ma question dans la mesure où elle délimite la chaine à rechercher avec "=" et "," alors qu'il y a d'autres chaine qui sont délimitées par "=" et la fin de la ligne. En plus elle affiche le premier paramètre $1!!!

lami20j · Answer

Justement j'ai dit dans mon message qu'on a besoin de la structure de ton fichier
http://www.commentcamarche.net/forum/affich 5010161 chercher une chaine avec awk dans un fichier#7
On ne peux pas deviner ce que ton fichier contient

sam · Answer

mon fichier c'est exactement ce que je vous ai lister :

ch=a.chaine1,b.chaine2
ch1=a.chaine1,b.chaine8
ch2=c.chaine3
ch3=a.chaine4,b.chaine5,chiane6
ch4=a.chaine4,b.chaine8,chiane9


en changeant juste les noms c tout!

sam · Answer

Merci lami20j :)
le script marche bien. Cependant, je voudrais faire appel à ce script perl à partir de mon script korn shell et pour ce je voudrai une valeur de retour pour savoir si l'élément entré par l'utilisateur a été trouvé ou non.
Comment faire sachant bien que je ne connais pas perl du tout :(

lami20j · Answer

par exemple
root@debian:~# cat ccm.sh
#!/bin/sh

perl /home/lami20j/ccm.pl $1
root@debian:~# sh ccm.sh fic
Entrez la chaine à chercher : chaine1
a.chaine1 trouvé 2 fois
root@debian:~#

sam · Answer

Non, c pas l'appel du script shell! ça je sais faire :)
Je voudrai la valeur de retour à savoir "a.chaine1".

lami20j · Answer

mets tu as la valeur de retour

a.chaine1 trouvé 2 fois

sam · Answer

Moi ce que je veux c intercepter cette valeur. çàd que lorsque je ferai appel à mon script perl il va me retourner "a.chaine1 trouvé 2 fois " mais moi je veux que ça soit dans une variable que je testerai au niveau de mon script ksh.
Exemple:

# cat ccm.sh
#!/bin/sh

perl /home/lami20j/ccm.pl $1
si "valeur de retour" = null alors
"traitement"
sinon
"traitement
fin si

sam · Answer

Pardon, la valeur de retour que je veux est le "n" fois:
# cat ccm.sh 
#!/bin/sh 

perl /home/lami20j/ccm.pl $1 
si "n" = 0 alors 
"traitement" 
sinon 
"traitement 
fin si

sam · Answer

Il y a aussi un problème au niveau de la recherche :(
si jamais l'utilisateur entre "ch" il faudrait que la valeur de retour de "n" soit 0 et non pas 5 :(
ch trouvé 5 fois
Il faut que le script charche la chaine entière comme je l'ai dis dans mes premiers mails.

lami20j · Answer

Voilàroot@debian:~# cat fic
ch=a.chaine1,b.chaine2
ch1=a.chaine1,b.chaine2
ch2=c.chaine3
ch3=a.chaine4,b.chaine5,chiane6
etc...

root@debian:~# cat ccm.pl
#!/usr/bin/perl
use strict;use warnings;

my %h;
my $ch = shift @ARGV;
while(<>){
  next unless /(\w*\.*$ch)/;
  $h{$1}++;
}
print values %h;
__END__
root@debian:~# cat ccm.sh
#!/bin/sh

echo -e "Entrez la chaine a chercher : \c"
read ch
var=$(perl /home/lami20j/ccm.pl $ch $1)

if [ -z $var ]
then
echo "NULL"
else
echo $var
fi

root@debian:~# sh ccm.sh fic
Entrez la chaine a chercher : chaine1
2
root@debian:~# sh ccm.sh fic
Entrez la chaine a chercher : divers
NULL
root@debian:~#

lami20j · Answer

le script shell#!/bin/sh

echo -e "Entrez la chaine a chercher : \c"
read ch
var=$(perl /home/lami20j/ccm.pl $ch $1)

if [ -z $var ]
then
echo "NULL"
else
echo $var
fi
le script perl#!/usr/bin/perl
use strict;use warnings;

my %h;
my $ch = shift @ARGV;
while(<>){
  next unless /(\w*\.$ch)\b/;
  $h{$1}++;
}
print values %h;
__END__
le résultatroot@debian:~# sh ccm.sh fic
Entrez la chaine a chercher : chaine1
2
root@debian:~# sh ccm.sh fic
Entrez la chaine a chercher : chaine10
NULL
root@debian:~# sh ccm.sh fic
Entrez la chaine a chercher : ch
NULL
root@debian:~#

sam · Answer

Voici le résultat d'execution que j'obtiens.

Entrez la chaine a chercher : chai
pp[8]: test: 0403-004 Spécifiez un paramètre avec cette commande.

[]>sh pp _tmp
Entrez la chaine a chercher : chaine3
1
[]>sh pp _tmp
Entrez la chaine a chercher : chiane9
pp[8]: test: 0403-004 Spécifiez un paramètre avec cette commande.


Merci d'avance pour ton lamij, je t'ai pas mal dérangé, j'en suis désolé mais je ne connais pas perl :(

Chercher une chaine avec awk dans un fichier

25 réponses

Discussions similaires