Discussion :

[chewbie]

Bonjour,

Je souhaiterai créer une fonction UNIX afin de simplifier l'utilisation de la fonction: perl -pi -e 's/name1/name2/g' *

je souhaiterait pouvoir taper:
replace blonde brune lit

et que la fonction traduise ça par:
perl -pi -e 's/blonde/brune/g' *.lit

Malheureusement ça ne marche pas. Etant débutant, je ne sais pas ce qui pourrait coincer et m'en remet donc a vous.
En vous remerciant par avance pour votre aide.

[Lolo78]

Crée un alias:

Code :

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

1
2
$ alias replace="perl -pi -e 's/name1/name2/g'"
$ replace fic.txt

[Philou67430]

Ou une fonction de shell : http://www.gnu.org/software/bash/man...hell-Functions

Code :

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

1
2
3
4
 
function replace() {
  perl -pi -e 'BEGIN { ($old, $new) = (shift @ARGV, shift @ARGV); } s/$old/$new/g' $*
}

(je ne suis pas certain de la syntaxe, je n'ai pas fait d'essais).

[Lolo78]

Ou un programme Perl replace.pl qui lance ton programme Perl:

Code :

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

1
2
3
4
#!/usr/bin/perl;
my $fichier = $ARGV[0];
chomp $fichier;
system ("perl -pi -e 's/name1/name2/g' $fichier");

(Pas testé, il y a peut-être une bourde quelque part, mais sur le principe, ça marche, je l'ai déjà fait.)

[chewbie]

Merci pour votre aide

Philou67430. Ta solution ne marche pas, je n'arrive pas à identifier pourquoi

Lolo78: dans tes solutions, name1 et name2 ne sont pas des variables ce qui est justement le but

La fonction que je désire doit transformer:
replace blonde brune lit
en
perl -pi -e 's/blonde/brune/g' *.lit

Mon idée initiale était de faire ça mais ça ne marche pas non plus
replace() {
perl -pi -e 's/$1/$2/g' *
}

Merci en tout cas pour votre aide

[Lolo78]

Lolo78: dans tes solutions, name1 et name2 ne sont pas des variables ce qui est justement le but

Je ne comprends pas. Tu veux que ce soit codé en dur, ou tu veux les passer en paramètre?

Dans le premier cas:

Code :

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

alias replace="perl -pi -e 's/brune/blonde/g'"

Dans le second cas, le script sera un choïa plus compliqué, mais c'est faisable.

[gg2laba]

Bonjour,

il faut peut-etre enlever "function" de la versionde Philou en fonction du shell que tu utilise, sinon ça fonctionne

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
 
toto@server0:~/tmp/test$ head *
==> fichier <==
elle est blonde
 
==> fichier0 <==
elle est brune
toto@server0:~/tmp/test$ replace() {   perl -pi -e 'BEGIN { ($old, $new) = (shift @ARGV, shift @ARGV); } s/$old/$new/g' $*; }
toto@server0:~/tmp/test$
toto@server0:~/tmp/test$ replace brune blonde *
toto@server0:~/tmp/test$ head *
==> fichier <==
elle est blonde
 
==> fichier0 <==
elle est blonde

[Philou67430]

Alors, ma solution fonctionne, mais elle ne prend pas le dernier argument comme extension de fichier, mais comme liste de fichier.
En revanche, je viens de voir que sur certains systèmes, la commande "replace" existe déjà, il faudrait donc renommer la fonction bash avec un nom différent, par exemple "r".
Dans ce contexte, et je viens juste de l'essayer, la commande suivante fonctionne parfaitement (environnement Cygwin) :

Code :

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

r blonde brune *.lit

[chewbie]

A nouveau, merci pour votre aide.
Je viens d'essayer la solution de gg2laba et ça marche.

Neanmoins je souhaiterai pouvoir enregistrer cette fonction dans mon .bashrc et ne pas avoir à la redéfinir dans chaque shell. Avez vous un idée pourquoi celà fonctionne directement dans le shell mais pas à partir du .bashrc?

Merci par avance

[Philou67430]

Ca devrait fonctionner... peux-tu montrer l'extrait de ton .bashrc qui défini cette fonction ?

[chewbie]

Ben c'est texto la formule que j'ai tapé dans la fenêtre

[Philou67430]

Montre quand même

[chewbie]

Je vois pas trop l'intérêt mais bon:

# Launch nastran job
nas() {
nast20121 $1 scr=yes old=no sdir=/dev/shm
}
# Replace content of files
replace() { perl -pi -e 'BEGIN { ($old, $new) = (shift @ARGV, shift @ARGV); } s/$old/$new/g' $*; }


Je precise que ma commande nas fonctionne

[Philou67430]

Sauf erreur, "replace" est un nom de commande Unix sur certains systèmes. Peux-tu donner le résultat de cette commande :

Code :

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

type replace

As-tu bien activé ton .bashrc dans ton shell courant ? (. ~/.bashrc).
As-tu essayé avec un autre nom ?

[chewbie]

Voici le résultat:

type replace
replace is a function
replace ()
{
perl -pi -e 'BEGIN { ($old, $new) = (shift @ARGV, shift @ARGV); } s/$old/$ne w/g' $*
}

[Philou67430]

Pourrais-tu préciser "en quoi" ça "ne marche pas", quand la fonction est définie dans le .bashrc ? (erreur du shell, mauvais fonctionnement, ...)

[chewbie]

Il ne se passe rien, aucune erreur ou message

[Philou67430]

Essaye en remplaçant dans le .bashrc par :

Code :

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

1
2
3
4
5
replace ()
{
echo "Starting perl";
perl -pi -e 'BEGIN { ($old, $new) = (shift @ARGV, shift @ARGV); print "Replacing [$old] by [$new]\n" } s/$old/$ne w/g' $*
}

[chewbie]

Super, merci Philou, ça marche.

[Philou67430]

Je n'ai pas compris : je n'ai fait qu'ajouter des print sur la console... en quoi cela a pu faire "fonctionner" la fonction ?!