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.

[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