Discussion :

[Philou67430]

Bonjour à tous,

Une fois n'est pas coutume, c'est moi qui vient demander de l'aide.
Je souhaites lancer une application Windows (qui s'exécute en mode "batch", sans interface graphique) et récupérer dans mon script perl ce qu'elle écrit sur la sortie standard.
J'utilise actuellement qx(...), et ça fonctionne bien, mais j'ai l'apparition d'une fenêtre DOS vide la première fois que je lance cette application, et plus les suivantes.

Je voulais donc tenter d'utiliser Win32::Process. Cependant, je n'arrive pas à exécuter l'application, la fonction Win32::Process::Create retournant "FAUX" et $@ restant vide (je n'ai donc pas de diagnostic).
J'ai essayé avec un chemin de lancement en / et en \\.

Voici la ligne qui lance l'application :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
my $doors_exe = q("C:/Program Files (x86)/Telelogic/DOORS_8.2/bin/doors.exe");
    my $process;
    Win32::Process::Create($process,
                           $doors_exe,
                           qq(doors -W -batch "$dxl" -user $user -password '$password' -project "$project"),
                           0,
                           NORMAL_PRIORITY_CLASS | DETACHED_PROCESS,
                           ".") || die "Can't start doors: $@\n";
    my $exitcode;
    do {
      $process->GetExitCode($exitcode);
      $process->Wait(1000);
    } while $exitcode == STILL_ACTIVE;

Similaire à ce qui est indiqué dans la doc.
Je travaille avec Strawberry perl 5.16.2
Ma version de Win32::Process est à jour (0.14)

Existe-t-il d'autre modules pour lancer des applications Windows ?
Qu'est-ce sont les sources d'erreurs possible avec Win32::Process et/ou comment les trouver ?

[dmganges]

Bonjour,

Je n'ai pas de réponse à tes deux questions.
Perso j'utilisai system pour lancer un executable, ne connaissant pas Win32:rocess::Create

J'ai dû faire pas mal de tests pour trouver les bonnes quotes...

Je suis sous ActivePerl v5.12.4
J'ai fait deux essais avec un autre exécutable, balabolka.exe qui est une synthèse vocale qui prend plusieurs paramètres en ligne de commande

Chez moi les deux essais fonctionnent, il n'y a pas de console DOS qui s'ouvre... si ça peut être utile :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#!/usr/bin/perl
use strict;
use warnings;
 
use Win32::Process;
use Win32;
 
sub ErrorReport{
	print Win32::FormatMessage( Win32::GetLastError() );
}
my $Executable	 = 'C:/Program Files (x86)/Balabolka/balabolka.exe';
my $ParamLigne	 = '-rmnq';
my $ParamFichier = '-rmq';
my $Phrase    = '"Coucou Philou"';
 
# Essai avec "Coucou Philou" dans temp.txt
my $ProcessObj;
Win32::Process::Create($ProcessObj,
	$Executable,
	"balabolka $ParamFichier temp.txt",
	0,
	NORMAL_PRIORITY_CLASS,
  ".")|| die ErrorReport();
 
$ProcessObj->Suspend();
$ProcessObj->Resume();
$ProcessObj->Wait(INFINITE);
 
# essai avec "Coucou Philou" en ligne de commande
Win32::Process::Create($ProcessObj,
	$Executable,
	"balabolka $ParamLigne $Phrase",
	0,
	NORMAL_PRIORITY_CLASS,
  ".")|| die ErrorReport();
 
$ProcessObj->Suspend();
$ProcessObj->Resume();
$ProcessObj->Wait(INFINITE);

Du coup je vais adopter cette méthode plus propre

[Philou67430]

Merci, grâce à toi, j'ai réalisé que la variable contenant l'exécutable, qui fonctionne très bien avec l'opérateur qx() (des doubles quotes autour du chemin), ne fonctionne pas avec Win32::Process.
En corrigeant ça, le process démarre bien, mais la fenêtre DOS apparait toujours. Je pense donc qu'elle est liée à l'application, et non à la méthode de lancement de l'application.
Comme par ailleurs, je ne sais pas comment récupérer le résultat de la sortie standard du processus, je vais revenir sur qx() qui fonctionnait bien.

Merci encore.

[djibril]

Ayant beaucoup utilisé le module Win32::Process à travers des programmes Tk, je te confirme que tu ne pourras rien faire pour la fenêtre DOS. Ce n'est pas lié à Perl mais à l'application.

En ce qui concerne la sortie standard, à part faire une redirection de STDOUT et STDERR dans un fichier, je crois qu'il n'y a pas d'autres solutions.

[Philou67430]

Heureusement que qx fonctionne parfaitement du coup