shell - traiter des fichiers - mots

Bonjour,

Je suis débutant en shell, j'aimerais savoir comment traiter cette question en shell posée dans mon tp : Donner les noms des employés qui sont alphabétiquement compris entre «D» et «N».

la base de donnée est base.txt:

7369 SMITH CLERK 7902 17-DEC-80 800 20
7499 ALLEN SALESMAN 7698 20-FEB-81 1600 30
7521 WARD SALESMAN 7698 22-FEB-81 1250 30
7566 JONES MANAGER 7839 02-APR-81 2975 20
7654 MARTIN SALESMAN 7698 28-SEP-81 1250 30
7698 BLAKE MANAGER 7839 01-MAY-81 2850 30
7782 CLERK MANAGER 7839 09-JUN-81 2450 10
7788 SCOTT ANALYST 7566 09-DEC-82 3000 20
7839 KING PRESIDENT 7839 17-NOV-81 5000 10
7844 TURNER SALESMAN 7698 08-SEP-81 1500 30
7876 ADAMS CLERK 7788 12-JAN-83 1100 20
7900 JAMES CLERK 7698 03-DEC-81 950 30
7902 FORD ANALYST 7566 03-DEC-81 3000 20
7934 MILLER CLERK 7782 23-JAN-82 1300 10

Bien que j'ai utilisé grep et cut rien ne fonctionne.

Merci pour toute éventuelle aide.

Bonjour,

le shell (bash en tous cas) peut faire ça sans recourir à des programmes externes :
1/ Comment lire/parcourir un fichier en shell

Bonjour

Je ne trouve la réponse à ma question sur ces liens.

cordialement

c'est dans le premier, je confirme.

mais évidemment, ce n'est pas donné tout cuit, il faut adapter !

en bash, tu utiliseras avantageusement le test avancé [[, plutôt que [, ou test.

Bonjour

Je confirme que 1 grep et un cut sont suffisants. Ne dis pas que rien ne marche.

Salut,

Citation:

---

Envoyé par Flodelarab

Je confirme que 1 grep et un cut sont suffisants. Ne dis pas que rien ne marche.

---

Je confirme qu'un grep¹ seul suffit :mouarf:



¹ Et son option -P (Po pour être exact)

Je confirma qu'un seul grep suffit et sans connaître le perl dans le cas présent :lol:

si on veut se la peter grave en cours, on peut faire ça avec un sed aussi ;)

:ccool:

Ou un simple 'echo'

Code:

---

echo -e "JONES\nMARTIN\nKING\nJAMES\nFORD\nMILLER"

---

Ok, je sors.
(Je suis déjà dehors)

Perso,
Je trouve qu'on se la pète plus si on le fait en builtin comme suggéré par N_BaH,
Essayons donc de mettre un peu de piment dans le petit défi:
Est-il possible de le faire rien qu'en builtin sans utiliser explicitement la boucle, donc sans select, for, while (le pipe n'est pas interdit) ?

je voudrais voir ça :aie:

Quand j'ai posé la question, c'est parce que je ne savais pas si c'était possible, mais en fait, c'est possible et même sans le pipe :aie: :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

$ cat fifi 7369 SMITH CLERK 7902 17-DEC-80 800 20 7499 ALLEN SALESMAN 7698 20-FEB-81 1600 30 7521 WARD SALESMAN 7698 22-FEB-81 1250 30 7566 JONES MANAGER 7839 02-APR-81 2975 20 7654 MARTIN SALESMAN 7698 28-SEP-81 1250 30 7698 BLAKE MANAGER 7839 01-MAY-81 2850 30 7782 CLERK MANAGER 7839 09-JUN-81 2450 10 7788 SCOTT ANALYST 7566 09-DEC-82 3000 20 7839 KING PRESIDENT 7839 17-NOV-81 5000 10 7844 TURNER SALESMAN 7698 08-SEP-81 1500 30 7876 ADAMS CLERK 7788 12-JAN-83 1100 20 7900 JAMES CLERK 7698 03-DEC-81 950 30 7902 FORD ANALYST 7566 03-DEC-81 3000 20 7934 MILLER CLERK 7782 23-JAN-82 1300 10

---

Code:

---

1 2 3 4 5 6 7

$ fu () { [[ $2 =~ ^[D-Nd-n] ]] && printf "${2// */}\n" ; shift 7 ; [[ $# -ne 0 ]] && fu $* ; } && fu $(<fifi) JONES MARTIN KING JAMES FORD MILLER

---

:haha:

Il ya a plus court, plus fiable et plus portable (POSIX) tout en respectant les mêmes contraintes:

Code:

---

1 2 3 4 5 6 7

$ fu() { read f n b||return;case $n in [D-Nd-n]*) echo $n;;esac;fu; } ;fu<fifi JONES MARTIN KING JAMES FORD MILLER

---

J'aime beaucoup l'utilisation du read ici :ccool:

:bravo:

un petit bémol : printf est censé être utilisé pour séparer la mise en forme et les données.
si on ne le fait pas, autant utiliser echo.

Super les solutions shell_only !
Après, je doute que ce soit compatible avec tous les shells (c-shell par exemple ?).
Cela rend l'utilisation de programmes "externes" confortable. Je doute en effet qu'on ne puisse pas trouver un grep, cut, sed voire awk sur un système avec un [ba,c,tc,k,z,...]sh.
Allez, n'ayant pas encore été donnée en awk, voici une solution :

Code:

---

awk '{if ($2 ~ /^[D-Nd-n]/) {print $2;}}' data.txt

---

Quelqu'un a proposé en sed, et j'aimerais beaucoup voir la solution !

Pour cut et grep, c'est assez simple aussi, et j'ai l'impression que c'est ta question. Donc indice: sélectionner le second champ de chaque ligne avec cut (les options -f et -d que tu trouveras dans un "man cut" t'intéresseront sûrement...), et avec grep chercher les patterns correspondants à tes besoins (patterns que tu pourras trouver dans les solutions qui t'ont été données). Une fois compris l'utilisation de cut et grep, dirige le flux de cut vers grep avec une pipe, et tu as une commande self-contained et très simple.

A toi de jouer, et surtout de comprendre !

Une solution sed:

Code:

---

sed -n -e 's/^[0-9]* \([D-Nd-n][^ ]*\).*/\1/p' fifi

---

Citation:

---

Envoyé par N_BaH

:bravo:

un petit bémol : printf est censé être utilisé pour séparer la mise en forme et les données.
si on ne le fait pas, autant utiliser echo.

---

Merci, cela m'a donné une idée sans création de fonction et qui respecte les contraintes:aie::

Code:

---

eval $(printf "echo '%s %s %s %s %s %s %s'| (read a a b; case \$a in [D-Nd-n]*) echo \$a;;esac);\n" $(<fifi))

---

Bon, elle fonctionne avec l'input donnée mais ne surtout pas utiliser dans la vrai vie :mouarf:

Citation:

---

Envoyé par disedorgue

Une solution sed:

Code:

---

sed -n -e 's/^[0-9]* \([D-Nd-n][^ ]*\).*/\1/p' fifi

---

---

OK ! A chaud, je n'avais pas pensé à utiliser une regexp pour accéder à un champ donné...
Nice, merci disedorgue.

Citation:

---

Envoyé par Flodelarab

Je confirma qu'un seul grep suffit et sans connaître le perl dans le cas présent :lol:

---

Là, je veux bien la solution...:koi:

Salut,

Citation:

---

Envoyé par disedorgue

Là, je veux bien la solution...:koi:

---

Euh... sans connaître le Perl (comme moi), mais avec juste un peu de Perl alors...

Code:

---

grep -Po '^[^ ]* \K[D-N][^ ]*' fichier

---

;)

Citation:

---

Envoyé par disedorgue

Merci, cela m'a donné une idée sans création de fonction et qui respecte les contraintes:aie::

Code:

---

eval $(printf "echo '%s %s %s %s %s %s %s'| (read a a b; case \$a in [D-Nd-n]*) echo \$a;;esac);\n" $(<fifi))

---

Bon, elle fonctionne avec l'input donnée mais ne surtout pas utiliser dans la vrai vie :mouarf:

---

Comme je ne trouvais pas la solution super, voici 1 autre version a peu près pareil, donc aussi sans création de fonction et cette fois-ci sans pipe (par contre toujours avec eval mais un peu plus maitrisé par '%q' au lieu de '%s' :aie:)

Code:

---

$ $(printf "eval a=%q;a=%q;b='%q%q%q%q%q';case \$a in [D-Nd-n]*) echo \$a;;esac;\n" $(<fifi))

---

Si on avait garder '%s' au lieu de '%q', on aurait pas pu avoir des lignes du genre:

Code:

---

7934 MI;ls;LLER CLERK 7782 23-JAN-82 1300 10

---

Citation:

---

Envoyé par zipe31

Salut,



Euh... sans connaître le Perl (comme moi), mais avec juste un peu de Perl alors...

Code:

---

grep -Po '^[^ ]* \K[D-N][^ ]*' fichier

---

;)

---

On est ok, mais il y a l'ombre de perl ici, moi je voulais une version sans et en un seul grep (pour moi, ce n'est pas possible, mais je me trompe peut-être).

Citation:

---

Envoyé par disedorgue

On est ok, mais il y a l'ombre de perl ici, moi je voulais une version sans et en un seul grep (pour moi, ce n'est pas possible, mais je me trompe peut-être).

---

Je pense que l'ami Flodelarab c'est un peu trompé dans sa réponse en rapport avec mes dires, où je précisais bien en ¹ : Et son option -P (Po pour être exact)

Donc, non sans cette option, grep ne peut le faire ;)

Plus concis en awk:

Code:

---

awk '{$0=$2}/^[D-N]/' fifi

---

Puisque vous avez tous craqué et donné toutes les réponses, je donne les versions auxquelles j'ai pensé tout du long:

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

$ cut -d' ' -f2 texte.txt|grep "^[D-N]" JONES MARTIN KING JAMES FORD MILLER $ grep -o " [D-N][A-Z]\{0,5\} " texte.txt JONES MARTIN KING JAMES FORD MILLER $ sed -n '/^[0-9]* [D-N]/p' texte.txt 7566 JONES MANAGER 7839 02-APR-81 2975 20 7654 MARTIN SALESMAN 7698 28-SEP-81 1250 30 7839 KING PRESIDENT 7839 17-NOV-81 5000 10 7900 JAMES CLERK 7698 03-DEC-81 950 30 7902 FORD ANALYST 7566 03-DEC-81 3000 20 7934 MILLER CLERK 7782 23-JAN-82 1300 10 $ sed -n 's/^[0-9]* \([D-N][A-Z]*\).*/\1/p' texte.txt JONES MARTIN KING JAMES FORD MILLER $ awk '($2 ~ /^[D-N]/){print $2;}' texte.txt JONES MARTIN KING JAMES FORD MILLER $ shopt -s extglob;a="$(<texte.txt)"; a="${a//[0-9][0-9][0-9][0-9] /ç}";a="${a// ç[0-9]/ }";a="${a// / }";a="${a//+([^ç])/ }";a="${a//ç[^D-N]+([A-Z]) }";a="${a// ç/\n}";a=${a//ç};echo -e "$a";shopt -u extglob; JONES MARTIN KING JAMES FORD MILLER

---

[edit]Y a un probleme d'affichage sur le forum pour la der ligne:
$ shopt -s extglob;a="$(<texte.txt)"; a="${a//[0-9][0-9][0-9][0-9] /ç}";a="${a// ç[0-9]/ }";a="${a// / }";a="${a//+([^ç])/ }";a="${a//ç[^D-N]+([A-Z]) }";a="${a// ç/\n}";a=${a//ç};echo -e "$a";shopt -u extglob;
[/edit]
[edit2]shopt -s extglob;a="$(<texte.txt)"; a="${a//[0-9][0-9][0-9][0-9] /ç}";a="${a// ç[0-9]/ }";a="${a// /à }";a="${a//à+([^ç])/ }";a="${a//ç[^D-N]+([A-Z]) }";a="${a// ç/\n}";a=${a//ç};echo -e "$a";shopt -u extglob;
[/edit2]

Citation:

---

Envoyé par Flodelarab

Puisque vous avez tous craqué et donné toutes les réponses, je donne les versions auxquelles j'ai pensé tout du long:

---

Y'a quand même de grand malade :mouarf:

N'empêche que moi, je trouve ça beau...

Bon, le coup du grep -o qui fonctionne...Hmmm :ptdr:

Par contre, la dernière solution de Flodelarab, c'est une voie que j'avais exploré sans succès car j'ai pas pensé à l'option extglob (et d'ailleurs, j'y pense jamais à ces divers shopt :cry: ), donc :bravo:

Bon, j'espère que programmation_ en aura profité pour apprendre des choses et n'aura pas fait juste un copier/coller.

Le résultat des solutions proposées est:

JONES
MARTIN
KING
JAMES
FORD
MILLER


Mais la solution sauf erreur de ma part doit être:

KING puisque ce mot est compris alphabétiquement entre D et N.

Merci quand même ^^

Citation:

---

Mais la solution sauf erreur de ma part doit être:

KING puisque ce mot est compris alphabétiquement entre D et N.

---

mais bien sûr, c'est une requête tellement fréquente : «trouver le mot, dont toutes les lettres, qui le composent, sont comprises entre deux lettres» !

Le problème est étrange et surtout très mal posé.
J'imagine bien aller dans une bibliothèque et voir un rangement des livres comme ça.
Mais comme en mathématique, lorsque l'énoncé est ambigu, la réponse est considérée comme bonne si elle répond à l'une des ambiguités.

M'enfin, de toute façon, cela ne change pas grand chose aux solutions données, il faut juste réadapter l'expression régulière.

Sinon, on peut aussi jouer sur ce type de registre et dire que seul le résultat compte (après tout, on n'est pas obligé de dévoiler les sources du programme) et donc:

Code:

---

echo KING

---

Répond à la question...:aie:

Code:

---

1 2	$ fu () { [[ "$2 " =~ ^[D-N][^A-CO-Z]*[D-N]\ ]] && printf "${2// */}\n" ; shift 7 ; [[ $# -ne 0 ]] && fu $* ; } && fu $(<fifi) KING

---

Code:

---

1 2	$ sed -n -e 's/^[0-9]* \([D-Nd-n]\+\) .*/\1/p' fifi KING

---

Code:

---

1 2	$ eval $(printf "echo '%s %s %s %s %s %s %s'| (read a a b; case \"\$a \" in [D-N][^A-CO-Z]*[D-N]\ ) echo \$a;;esac);\n" $(<fifi)) KING

---

Code:

---

1 2	$ $(printf "eval a=%q;a=%q;b=%q%q%q%q%q;case \"\$a \" in [D-N][^A-CO-Z]*[D-N]\ ) echo \$a;;esac;\n" $(<fifi)) KING

---

Code:

---

1 2	$ awk '{$0=$2}/^[D-N]+$/' fifi KING

---

Je vous remercie de votre aide.

J'aimerais avoir des explications sur cette instruction proposée:

Code:

---

1 2	awk '{$0=$2}/^[D-N]+$/' base.txt

---

Cette commande utilise des spécificités du langage awk qui ne sont pas spécialement intuitives ou didactiques, surtout pour un débutant.

L'objectif était pour moi de rechercher la commande la plus courte répondant à l'interprétation absurde de l'énoncé du TP en question.