Perl | Commande DOS
MrCanard
Messages postés
22
Date d'inscription
Statut
Membre
Dernière intervention
-
MrCanard Messages postés 22 Date d'inscription Statut Membre Dernière intervention -
MrCanard Messages postés 22 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je voulais savoir comment on intégrait une commande DOS dans un script PERL, car j'ai testé ça :
#!/usr/bin/perl -w
use strict;
my $rep = "";
system $rep;
print $rep;
et même :
#!/usr/bin/perl -w
use strict;
my $rep=`dir`;
print "Repertoire courant: ".$rep."\n";
et encore :
#!/usr/bin/perl -w
use strict;
$rep = system("dir");
print "Repertoire courant: ".$rep."\n";
et il me renvoi toujours cette magnifique erreur :
Can't spawn "cmd.exe": No such file or directory at C:\Documents and Settings\[...]\new.pl
Je voulais savoir comment on intégrait une commande DOS dans un script PERL, car j'ai testé ça :
#!/usr/bin/perl -w
use strict;
my $rep = "";
system $rep;
print $rep;
et même :
#!/usr/bin/perl -w
use strict;
my $rep=`dir`;
print "Repertoire courant: ".$rep."\n";
et encore :
#!/usr/bin/perl -w
use strict;
$rep = system("dir");
print "Repertoire courant: ".$rep."\n";
et il me renvoi toujours cette magnifique erreur :
Can't spawn "cmd.exe": No such file or directory at C:\Documents and Settings\[...]\new.pl
A voir également:
- Perl | Commande DOS
- Invite de commande - Guide
- Commande terminal mac - Guide
- Commande dism - Guide
- Diskpart commande - Guide
- Commande scannow - Guide
5 réponses
et
@args = ("C:/WINDOWS/SYSTEM32/cmd.exe", " /c dir");
system(@args);
@args = ("C:/WINDOWS/SYSTEM32/cmd.exe", " /c dir");
system(@args);
et
@args = ("C:\\WINDOWS\\SYSTEM32\\cmd.exe", " /c dir");
system(@args);
@args = ("C:\\WINDOWS\\SYSTEM32\\cmd.exe", " /c dir");
system(@args);
Merci il y avait juste une petite erreur :
#!/usr/bin/perl -w
use strict;
my @args = ("C:\\WINDOWS\\SYSTEM32\\cmd.exe", " /c dir ");
system(@args);
print "Repertoire courant : ".@args;
et là ca marche par contre juste une dernière question :
il m'affiche donc ce qu'un dir affiche et dans mon print, il me met comme résultat :
Repertoire courant : 2
soit @args = 2, pourquoi ???
Merci de ton aide dubcek ;)
MrCanard
#!/usr/bin/perl -w
use strict;
my @args = ("C:\\WINDOWS\\SYSTEM32\\cmd.exe", " /c dir ");
system(@args);
print "Repertoire courant : ".@args;
et là ca marche par contre juste une dernière question :
il m'affiche donc ce qu'un dir affiche et dans mon print, il me met comme résultat :
Repertoire courant : 2
soit @args = 2, pourquoi ???
Merci de ton aide dubcek ;)
MrCanard
Et est ce que tu saurais comment faire pour ouvrir un dossier grâce à ça, je m'explique :
opendir DIR, my @args2 = ("C:\\WINDOWS\\SYSTEM32\\cmd.exe", " /c cd ");
print "Voici la liste :\n";
while ($filename = readdir(DIR)) {
if ($filename =~ m/.sch$/) {
print "\t".$filename."\n";
}
}
closedir DIR;
Faire un truc comme ça quoi, bon c'est plus dir mais cd pour pouvoir obtenir le repertoire courant, mais il me dit là :
" readdir() attempted on invalid dirhandle DIR "
opendir DIR, my @args2 = ("C:\\WINDOWS\\SYSTEM32\\cmd.exe", " /c cd ");
print "Voici la liste :\n";
while ($filename = readdir(DIR)) {
if ($filename =~ m/.sch$/) {
print "\t".$filename."\n";
}
}
closedir DIR;
Faire un truc comme ça quoi, bon c'est plus dir mais cd pour pouvoir obtenir le repertoire courant, mais il me dit là :
" readdir() attempted on invalid dirhandle DIR "
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
et avec system("C:\WINDOWS\SYSTEM32\cmd.exe /c dir");
Avec :
#!/usr/bin/perl -w
use strict;
my $rep = system("C:/WINDOWS/SYSTEM32/cmd.exe /c dir");
print "Repertoire courant : ".$rep;
J'obtiens une nouvelle erreur ^^ mais qui m'a l'air moins grave :
"La syntaxe de la commande est incorrecte."
Parce que quand je mets des "\" ça me mets : "Unrecognized escape \W passed through" et pareil pour "\S"
#!/usr/bin/perl -w
use strict;
my $rep = system("C:/WINDOWS/SYSTEM32/cmd.exe /c dir");
print "Repertoire courant : ".$rep;
J'obtiens une nouvelle erreur ^^ mais qui m'a l'air moins grave :
"La syntaxe de la commande est incorrecte."
Parce que quand je mets des "\" ça me mets : "Unrecognized escape \W passed through" et pareil pour "\S"