fonction unix en perl

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.

Crée un alias:

Code:

---

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

---

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

Code:

---

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).

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

Code:

---

1 2 3 4

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

---

:mrgreen:

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

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

Citation:

---

Envoyé par chewbie

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:

---

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.

Bonjour,

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

Code:

---

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

---

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:

---

r blonde brune *.lit

---

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

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

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

Montre quand même :)

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

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

Code:

---

type replace

---

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

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' $*
}

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

Il ne se passe rien, aucune erreur ou message

Essaye en remplaçant dans le .bashrc par :

Code:

---

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' $* }

---

Super, merci Philou, ça marche.:ccool:

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

J'espère que tu n'attends pas une réponse de ma part? Néanmoins si tu as besoin d'autres informations pour mieux comprendre il n'y a pas de soucis, je te dois bien ça.

Bah... tu pourrais répondre en me disant ce que tu as finalement mis dans ton .bashrc pour que ça fonctionne... je suis juste curieux de comprendre.

En fait, Ca marche sans :oops:
Je me suis rendu compte que la commande que j'utilisais pour recharger mon .bashrc, cad

Citation:

---

. .bashrc

---

trouvée sur internet ne fonctionne pas. J'ai utilisé

Citation:

---

source ~/.bashrc

---

à la place et maintenant ça marche.
Tu avais bien raison Philou, la syntaxe suivante fonctionne:

Citation:

---

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

---

Désolé pour le trouble et merci encore pour ton aide

Voila qui me rassure... et je suppose que le fait d'ajouter des "echo" dans la fonction a dû te mettre la puce à l'orteil ^^

Effectivement, j'ai supprimé le echo, rechargé le .bashrc avec la méthode fausse (pourquoi d'ailleurs?) et g toujours vu le message s'afficher.