Discussion :

[thibaud74]

Bonsoir,

Je voudrais utiliser une ligne de perl dans mes scripts bash pour remplacer un mot par un autre (ou le supprimer) dans un texte long.
Par exemple, avec la commande echo, je fais ceci :

Code :

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

1
2
3
4
$ export origin="a"; export target="a pas" ; \
>    echo "ça a l'air d'aller" | \
>    perl -pe 's/(^|[^-])\b$ENV{"origin"}\b(?=$|[^-])/$1$ENV{"target"}/ig'
ça pas a pas l'air d'aller

Voilà, vu le résultat, le "a" de ça est remplacé et le "ç" est ignoré, alors qu'il n'y a qu'un seul mot "a" !

Merci de l'aide,
Thibaud.

[50Nio]

Bonjour,
Essaye d'encadrer ton $ENV{"origin"} par tous les séparateur possibles de ponctuation (espace, tab, ;, : ...)
Genre

Code :

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

perl -pe 's/(\W)$ENV{"origin"}(\W)/$1$ENV{"target"}$2/g'

\W: a "non word character"

Code :

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

echo "Ca a l'air d'aller a. a; a! aa aaa a"

sera remplacé par

Code :

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

Ca a pas l'air d'aller a pas. a pas; a pas! aa aaa a pas

[thibaud74]

Bon, je me répond à moi-même au cas où ça serait utile à d'autres. Voici le script corrigé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
#
use encoding "utf-8";
 
$from=shift;
$to=shift;
 
while (<>) {
  s/(^|[^-])\b$from\b(?=$|[^-])/$1$to/ig;
  print;
}

Exemple près avoir rendu le script exécutable dans $HOME/bin et nommé replace.ps :
$ from="a"; to="a pas"; echo "ça a l'air d'aller" | replace.ps "$from" "$to"

Solution fournie par vamped ici : http://ubuntuforums.org/showthread.php?t=1213806&page=4 (en)