Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Langage Perl PB newbie sans doute..

PB newbie sans doute..

3 réponses
Avatar
Michel BERTRAND
Voila j'ai pompé un script pour eteindre mon serveur

#!/usr/bin/perl
print "Content-type:text/html\n\n";
print "Extinction en cours...";
@out = `/sbin/shutdown -h now`;

Pas de PB c'est nikel

je me dis tiens et pour d'autres commandes ? je teste

#!/usr/bin/perl
print "Content-type:text/html\n\n";
print "Copie en cours...";
@out = `/bin/cp -r /var/www/html/toto/ /mnt/zip/toto/`;
print "Copie terminée...";

et la rien !
Merci pour votre aide
Michel
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Denis -esp2008-
Bonjour,

#!/usr/bin/perl
print "Content-type:text/htmlnn";
print "Copie en cours...";
@out = `/bin/cp -r /var/www/html/toto/ /mnt/zip/toto/`;
print "Copie terminée...";
Remplace la dernière ligne par:

print "@out";
pour voir l'erreur :)
--
Denis

Avatar
Michel BERTRAND
Merci !

#!/usr/bin/perl
print "Content-type:text/htmlnn";
print "Copie en cours...";
@out = `/sbin/cp -r /var/www/html/osteo-net/ /mnt/zip/osteo-net`;
print "@out";
print "Copie terminée";

en fait ça marche
mais print "@out"; ne sort rien


c'est génial ce truc !
Avatar
Adrien Constant
Michel BERTRAND wrote:
Merci !

#!/usr/bin/perl
print "Content-type:text/htmlnn";
print "Copie en cours...";
@out = `/sbin/cp -r /var/www/html/osteo-net/ /mnt/zip/osteo-net`;
print "@out";
print "Copie terminée";

en fait ça marche
mais print "@out"; ne sort rien


c'est génial ce truc !





C'est normal c'est cp -rv
Et puis plutot :
print "$_n" foreach @out;

Adrien Constant