AWK - Recherche de lignes

Bonjour,

Je cherche à écrire un petit script avec l'algo suivant : Soit un fichier, je voudrais que si une ligne commence par 1 et la ligne suivante par 4 afficher le numéro de ligne et incrémenter un compteur pour compter le nombre d'occurences trouvées.

Merci d'avance pour vos suggestions.8O

Quelque chose comme ce qui suit devrait fonctionner.

Code:

---

1 2 3 4 5 6 7

awk ' /^1/ \ { getline if ($0 ~ /^4/) {print "found in line:", NR - 1; found++} } END {printf "total %s\n", found}' input_file

---

Merci jmelyn pour ta réponse.

Cela répondait parfaitement à mon problème, voici le code final :

Code:

---

1 2 3 4 5 6 7 8 9 10

root# more SEQ-14-V2.awk BEGIN {found=0;}; /^1/ \ { line=$0 getline if ($0 ~ /^4/) {print "found in line:", NR - 1, "\n", line, "\n", $0; found++} } END {printf "total %s\n", found} root#

---

Bonjour,

La commande que j'ai donnée n'est pas complètement correcte: Il existe au moins un cas où elle ne fonctionnera pas:

Code:

---

1 2 3

1 bla bla bla 1 bla bla bla 4 bla bla bla

---

Voici donc une commande modifiée qui fonctionne mieux:

Code:

---

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

awk ' { if ($0 ~ /^1/) {prev1 = 1} else { if ($0 ~ /^4/ && prev1 == 1) { print "pattern found in lines", NR-1, "-", NR total++ } prev1 = 0 } } END {printf "===========\ntotal found %s\n", total}' fichier

---

Remarques:
Les variables de awk n'ont pas besoin d'être initialisées. Par défaut elles sont à zéro si employées numériquement ou "" si employées comme chaine.
Le point-virgule est un séparateur, à insérer entre deux commandes sur une même ligne. Autrement il n'a pas d'utilité.

Edit: Changement de nom de variable, pour plus de clarté et correction d'un bug (encore un :( ).