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!