lancement commande dos

:cry:

Bonjour,

J'essaie desesperement de lancer une commande dos a partir de perl en utilisant la fonction system mais ca ne fonctionne pas :

my $chemin = $HomeDir\MonExecutable.exe';
my $file = $Path.$FileName;
my $commandes = $chemin.' '.$file;

system $commandes;

Je dois preciser que je lance cette commande depuis ClearQuest Designer.
Comme resultat je vois une fenetre dos apparaitre puis disparaitre aussitot mais a part ca il ne se passe rien!!
Or si je vais dans une fenetre cmd et que je mets les memes parametres ca fonctionne. Donc ma ligne de commande devrait fonctionner.

Pour information je debute dans Perl (en fait j'ai commence hier :roll: )
Quelqu'un peut-il me dire pourquoi??

Merci d'avance

regarde ce topic

Je viens d'aller voir le topic mais ca marche toujours pas :cry:

Avec le win32 je verifie bien que la commande que je veux lancer est conforme a ce que je veux.
J'ai modifie la syntaxe de system en :
system("$commandes");
mais ca n'a rien change.
En fait je me demande si ca vient du fait que je veux lancer un executable avec un nom de fichier en parametre?

Citation:

---

Envoyé par tokie

Comme resultat je vois une fenetre dos apparaitre puis disparaitre aussitot mais a part ca il ne se passe rien!!

---

Tu es certain que ce n'est pas simplement parce que le script Perl a terminé et referme sa fenêtre DOS ? Rajoute un "<STDIN>;" à la fin de ton script pour en avoir le coeur net.

--
Jedaï

J'ai compris mon probleme, c'est tout bete.
En fait il faut que je double les "\" des mes variables
Bah il me reste plus qu'a le faire
Merci de vos reponses

:cry::cry:
finalement je me suis enflamee trop vite!!
j'ai reussis a modifier mes \ en \\ (c'etait pas le plus dur), mais il ne veux toujours pas effectuer ma commande.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

my $chemin = $PapeeteHome.'bin\PapeeteUniversaleClient.exe'; $chemin =~ s/\\/\\\\/g; Win32::MsgBox ("chemin ".$chemin);   my $file = $Path.$FileName; $file =~ s/\\/\\\\/g; Win32::MsgBox ("file ".$file);   # Cette fonction ne marche pas system($chemin,$file);   # Celle ci fonctionne # system ("C:\\Ap\\PapeeteToolSuite\\papeete\\bin\\papeeteUniversalClient.exe","C:\\Ap\\PapeeteToolSuite\\shareddir\\NavigateFile.xml");

---

J;ai du mal a comprendre pourquoi??
Lorsqu'on lance une commande system, il a bien acces aux donnees du processus, non??

Desolee de poser autant de questions :oops:

je suis pas sur mais

=~ s/\\/\\\\/g;

remplace un \ par QUATRES \
tu n'en veut que 2 alors il faut mettre

=~ s/\\/\\/g;

car l'opérateur de substitution s s'utilise comme ça :
s/[RegXp]/Chaine_de_caractère_de_substitution_non_interpreter/g

Citation:

---

Envoyé par CKLN00

je suis pas sur mais

=~ s/\\/\\\\/g;

remplace un \ par QUATRES \
tu n'en veut que 2 alors il faut mettre

=~ s/\\/\\/g;

car l'opérateur de substitution s s'utilise comme ça :
s/[RegXp]/Chaine_de_caractère_de_substitution_non_interpreter/g

---

faux

il remplace bien un \ par 2 \ car le back slash doit lui même être protégé

Citation:

---

Envoyé par tokie

:cry::cry:
finalement je me suis enflamee trop vite!!
j'ai reussis a modifier mes \ en \\ (c'etait pas le plus dur), mais il ne veux toujours pas effectuer ma commande.

my $chemin = $PapeeteHome.'bin\PapeeteUniversaleClient.exe';
$chemin =~ s/\\/\\\\/g;
Win32::MsgBox ("chemin ".$chemin);

my $file = $Path.$FileName;
$file =~ s/\\/\\\\/g;
Win32::MsgBox ("file ".$file);

# Cette fonction ne marche pas
system($chemin,$file);

# Celle ci fonctionne
# system ("C:\\Ap\\PapeeteToolSuite\\papeete\\bin\\papeeteUniversalClient.exe","C:\\Ap\\PapeeteToolSuite\\shareddir\\NavigateFile.xml");

J;ai du mal a comprendre pourquoi??
Lorsqu'on lance une commande system, il a bien acces aux donnees du processus, non??

Desolee de poser autant de questions :oops:

---

Arretez de vous embeter avec les back slash dans les chemins, perl comprends tout à fait les /
donc ceci aurait suffit :

Code:

---

# system ("C:/Ap/PapeeteToolSuite/papeete/bin/papeeteUniversalClient.exe","C:/Ap/PapeeteToolSuite/shareddir/NavigateFile.xml");

---

Donc tu peux carrement faire ceci :

Code:

---

$file =~ s{\\}{/}g;

---

voilà

bon bha désoler :s ! au moins j'aurais essayer :s !

Citation:

---

Envoyé par CKLN00

bon bha désoler :s ! au moins j'aurais essayer :s !

---

c'est bien qd même d'avoir essayé :lol:

je viens de faire plusieurs essais et je pense vraiment qu'il arrive pas a interpreter mes variables, mais pourquoi c'est la question!!!

le plus simple pour nous est de nous mettre ton script entier car on t'as déjà donné les solutions

Hello,
EN fait mon soucis est que je peux pas mettre le bout de programme comme ca sur le net (une partie de code ne m'appartient pas). Est-il possible que je te l'envoie pas MP???
Sinon je pense que le probleme vient de l'interpretation des / et \ mais bon je vois pas tres bien ou!!!

Merci

J'ai trouve
J'ai juste oublie un caractere!!!
En tout cas merci pour votre aide!!