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!
