moulinette awk (ajout de champs) pour un newb Résolu/Fermé

Question

Bonjour,
je ne suis pas du tout informaticien, ce qui explique que je bute deja sur ce probleme simplissime:
J'ai un fichier de taille variable, que je veux reecrire en rajoutant des lignes. 
Ex:
j'ai le fichier ;

********
toto1
titi
********
toto2
tutu
********
toto3
tete
********

Je veux arriver a ca :

*******
toto1
totoajouté
titi
*******
toto2
totoajouté
tutu
********
(...)

Le probleme est que je ne connais pas a l'avance le nombre de partie entre lignes (******)
et mes connaissances en awk sont très basiques. 
Je peux le faire en fortran, mais je trouve que awk est quand meme plus elegant et efficace dans une chaine en shell.

merci pour votre aide, et desole pour le niveau de la question!

dubcek · Answer

hello
$ cat a1
********
toto1
titi
********
toto2
tutu
********
toto3
tete
******** 
$ awk '{print $0} ; /^toto/ {print "totoajoute"}' < a1
********
toto1
totoajoute
titi
********
toto2
totoajoute
tutu
********
toto3
totoajoute
tete
******** 
$

dubcek · Answer

après toute ligne qui commence par 3 *, on lit la suivante et on l'imprime 2 fois
$ cat a1
****
nitrate
.true.
0.0
*****
phosphate
.false.
0.0
*****
choucroute
.true.
1.1

$ awk '{print $0} ; /^\*\*\*/ {getline ; print $0 ; print $0}' < a1
****
nitrate
nitrate
.true.
0.0
*****
phosphate
phosphate
.false.
0.0
*****
choucroute
choucroute
.true.
1.1

dubcek · Answer

getline lit la ligne suivante, je peux faire:
 awk '{print $0} ; /^\*\*\*/ {getline ; print $0 "
" $0 ; getline ; print $0 "
" $0 "
" "99.0" }' < a1
****
nitrate
nitrate
.true.
.true.
99.0
0.0
*****
phosphate
phosphate
.false.
.false.
99.0
0.0
*****

matthieu · Answer

merci encore pour ta reactivite et ta patience (vu la clarte de mon expose)
Reste un dernier point que je vais essayer de corriger, vu tout ce que tu m'a donne

le fichier d'entree se termine par : 

(...)
blabla
*************


et je voudrai qu'il se termine de la meme facon une fois reecrit, en fait que le script awk ne s'applique pas a la derniere occurence de ***** (sinon il recopie les blancs encore apres). C'est possible?
Je pensais supprimer les x dernieres lignes (toujours avec awk, une fois le script execute)

Quoiqu'il en soit, merci beaucoup, avec ca je me debrouillerai (j'allais partir dans des boucles for...!)

dubcek · Answer

il faut connaitre le nombre de lignes et on teste, si il y a égalité avec la ligne courante (NR) on sort

$ L=$(wc -l < a1)
$ awk '{print $0} ; /^\*\*\*/ {getline ; if (NR == '"$L"') exit ; print $0 "
" $0 ; getline ; print $0 "
" $0 "
" "99.0" }' < a1
****
nitrate
nitrate
.true.
.true.
99.0
0.0
*****
phosphate
phosphate
.false.
.false.
99.0
0.0
*****
$

jipicy · Answer

Salut,

Et avec "sed" (désolé dubcek ;-)) ) :

jp@MDK:~/tmpfs ssh$ cat fich
****
nitrate
.true.
0.0
*****
phosphate
.false.
0.0
*****
choucroute
.true.
1.1


jp@MDK:~/tmpfs ssh$ sed -i.bak '/\*\+/{n;/^$/q;s/.*/&
&/;n;s/.*/&
&
99.0/}' fich

jp@MDK:~/tmpfs ssh$ cat fich
****
nitrate
nitrate
.true.
.true.
99.0
0.0
*****
phosphate
phosphate
.false.
.false.
99.0
0.0
*****
choucroute
choucroute
.true.
.true.
99.0
1.1


jp@MDK:~/tmpfs ssh$
;-))

dubcek · Answer

on a pas besoin de compter les lignes, getline retourne 0 en cas d'eof
  $ awk '{print $0} ; /^\*\*\*/ {if(getline == 0) exit ; print $0 "
" $0 ; getline ; print $0 "
" $0 "
" "99.0" }' < a1

Moulinette awk (ajout de champs) pour un newb

7 réponses

Discussions similaires