Discussion :

[padawanette]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Ashin]

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

[padawanette]

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 !

[Ashin]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
=> cat test.txt
blablabla
        code
        code
        code
blablabla
        code
        code
        code
blablabla

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[padawanette]

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

A+

[N_BaH]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[padawanette]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

{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 !

[N_BaH]

/^[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