Shell insert Balise au début et fin d'un morceau de code

Bonjour à tous,

je suis actuellement bloquée sur un script Shell sous Linux.

J'ai un fichier .txt avec texte et du code. Le code est toujours précédé d'une tabulation. Voici un exemple de mon fichier.

Code:

---

1 2 3 4 5 6 7 8

blablablabla code code code blabalablabla code code balablablabla

---

Ce que je souhaite c'est de rajouter "{code}" au début et la fin de chaque morceau de code. Je devrais donc obtenir

Code:

---

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

blablablabla {code} code code code {code} blabalablabla {code} code code {code} balablablabla

---

Mais avec le code que j'ai il me trouve la première indentation et la dernière du fichier.

Code:

---

1 2 3 4 5 6 7

TESTFILE=test.txt   BLOCKNUM=$(awk '/ /,/ /{ print NR }' $TESTFILE|sed -n '1p;$p')   set -- $BLOCKNUM; BLOCKSTART=$1; BLOCKEND=$2 echo $BLOCKSTART echo $BLOCKEND

---

Auriez-vous une idée d'amélioration de mon code svp ?

Merci d'avance

entourer chaque ligne de code par un tag c est facile mais entourer un paragraphe de code en sed ou en awk (connais assez peu) je vois pas trop.

il faut détecter que la ligne suivante est ou n'est pas du code a chaque fois. je verrais plutot un script sh ou un script perl faire ça

ma commande awk se trouve bien dans un fichier script.

j'avais réussi a entouré chaque ligne de code par les balises {code} mais c'est pas trop ca que je cherche donc je me creuse encore la tete !

Le perl, j'ai jamais touché de ma vie, je ne connais pas du tout !

si le but est de répondre a ton probleme, en perl ça donne ça :

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

#! /usr/local/bin/perl   $SEP = "/"; my $INPUT_FILE = $SEP."home".$SEP."xxx".$SEP."test.txt"; my $OUTPUT_FILE = $SEP."home".$SEP."xxx".$SEP."test_outp.txt"; my $STATE = "NO_STATE";   open (HANDLE_INPUT_FILE, $INPUT_FILE) || die "open problem of $INPUT_FILE : $!"; open (HANDLE_OUTPUT_FILE, ">$OUTPUT_FILE") || die "open problem of $OUTPUT_FILE : $!"; while ( my $line = <HANDLE_INPUT_FILE> ) { chomp $line; if ($STATE eq "STATE_1") { if ($line =~ "\t") { print HANDLE_OUTPUT_FILE "$line\n"; } else { print HANDLE_OUTPUT_FILE "{code}\n$line\n"; $STATE = NO_STATE; next; } } if ($STATE eq "NO_STATE") { if ($line =~ "\t") { print HANDLE_OUTPUT_FILE "{code}\n$line\n"; $STATE = STATE_1; } else { print HANDLE_OUTPUT_FILE "$line\n"; } } } close(HANDLE_INPUT_FILE); close(HANDLE_OUTPUT_FILE);

---

Code:

---

1 2 3 4 5 6 7 8 9 10

=> cat test.txt blablabla code code code blablabla code code code blablabla

---

Code:

---

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

=> tes.pl => cat test_outp.txt blablabla {code} code code code {code} blablabla {code} code code code {code} blablabla

---

Salut,
je te remercie. Je vais tester ca demain matin ! Je te tiens au courant !!

A+

Code:

---

1 2 3 4

sed '/^[a-Z]/{1!s//{code}\n&/;{ $!a{code} } }' ton_fichier

---

ce n'est bien sûr pas ausi fiable que le script d'Ashin

Merci a vous pour vos réponses,

le script en perl fonctionne parfaitement donc merci bcp.

Par conte, j'ai un peu de mal a comprendre la commande sed. Surtout la seconde partie :

Code:

---

{1!s//{code}\n&/;{$!a{code}}

---

Dites moi si je me trompe :
1! = Si la condition "^[a-Z]" est respectée, alors on met "/{code}\n&"
$! = Sinon, on met "a{code}"

Je pense pas que ça doit être ça, car c'est pas trop le principe d'un sed.
Si vous pourriez m'éclairer sur cette commande car je voudrais bien la comprendre quand mm !

/^[a-Z]/ = si la ligne commence par une lettre (minuscule ou majuscule) => pas par une tabulation
et
1! = si ce n'est pas la première ligne
$! = si ce n'est pas la dernière ligne