Discussion :

[cacoole]

Bonjour,

Je suis un peu perdu, je dois écrire un script pour insérer une ligne dans un fichier.
Je dois impérativement le faire dans un script sh.
J'ai sed dans mon environnement mais sed -i ne fonctionne pas : option illégal...

Cette ligne contient des espaces et des caractères spéciaux : voici un exemple de ligne "toto::toto tata()" à la ligne 3

J'ai essayé avec sed mais je ne parviens pas.

J'ai essayé avec perl ca marche bien si la ligne n'a pas d'espace :

Code :

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

1
2
3
4
5
6
#!/bin/bash
 
ligne="toto::toto tata()"
num_ligne=3
fichier="test.txt"
perl -i.bak -lpe'print "'${ligne}'" if $.=='${num_ligne}'' ${fichier}

Avec cette exemple j'obtiens ce message :

Can't find string terminator '"' anywhere before EOF at -e line 1.

Du coup si quelqu'un peut m'aider ce serait génial.
Merci d'avance.

[N_BaH]

Bonjour

selon moi, en utilisant perl, même sed, tu sors du cadre qui t'a été imposé : « impérativement le faire dans un script sh »
sinon autant tout faire dans un script perl, ou sed !

si ta version de sed ne dispose pas de l'option -i, c'est que tu n'es pas dans un environnement GNU.
quel est ton environnement de travail ?

d'abord : apprendre à lire un fichier ligne par ligne en shell.

en gros,
tu lis le fichier une ligne à la fois
tu vérifies le nombre de lignes lues
tu affiches la ligne lue
quand tu arrives à la ligne visée
- tu affiches la ligne souhaitée
et tu rediriges tout ça dans un fichier temporaire
enfin tu écrases le fichier à modifier avec le fichier temporaire.
finEnGros

[balkany]

Pour ton problème avec perl, il faut que tu protèges $ligne du découpage en mots par le shell :

Code :

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

perl -i.bak -lpe'print "'"$ligne"'" if $.=='$num_ligne $fichier

[cacoole]

Super la ligne donné fonctionne parfaitement, j'avais essayé de protégé mais sans succès...

Par contre maintenant j'ai un autre souci : la ligne à écrire commence par des espaces (c'est une indentation), et quand j'écris la ligne les espaces de début ne s'écrivent pas.

Y a'til un moyen de faire en sorte (avec la ligne perl) de conserver les espaces de début de ligne?

[balkany]

Je n'ai pas ce problème chez moi.
Peux-tu donner les commandes précises par lesquelles :
- tu affectes à la variable ligne la chaine de caractères commençant par des espaces ;
- tu écris le contenu de cette variable dans le fichier $fichier.

[BufferBob]

salut,

sans perl ni sed :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/bin/bash
 
ligne="toto::toto caca()"
num_ligne=3
fichier="test.txt"
 
while read machin; do
   ((compteur++))
   echo "$machin"
   if (($compteur == $num_ligne)); then
      echo "$ligne"
   fi
done < "$fichier" > "${fichier}.bak" &&
rm "$fichier" && mv "${fichier}.bak" "$fichier"

et le résultat :

Code :

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

1
2
3
4
5
6
7
8
9
$ cat test.txt
ligne 1
ligne 2
ligne 3
toto::toto caca()
ligne 4
ligne 5
ligne 6
ligne 7