Discussion :

[Exo]

Bonjour à tous,

Je galleres depuis un bon moment sur le rechercher remplacer dans un fichier.
La commande en bash fonctionne, mais quand je la mets dans mon script perl... impossible

Est-ce que vous voyez le problème ?

#!/usr/bin/perl
...
while (@results = $execute->fetchrow()) {
sed -i -e 's#\(test@test.com:\).*\(:popuser:/var/qmail/mailnames/test.com/testl\)#\1asdfAdfj818sdjhs\2#' /var/qmail/users/poppasswd.bkp
}
...


J'arrive à rien
Merci de votre aide!

[MarneusCalgarXP]

Bonjour,

En tout premier lieu, merci d'utiliser la balise code, de sorte à ce que le message soit plus lisible et que le code conserve sont indentation originale.

Ensuite, la réponse à ta question se trouve dans la FAQ
http://perl.developpez.com/faq/?page=sectionC2