Discussion :

[Artemus24]

Salut à tous.

Je suis sous windows 10 Pro
Je désire depuis un script Perl, lancer un batch windows et récupérer son code retour.

Par exemple, ce batch windows :

Code :

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

1
2
3
4
5
6
@echo off
 
echo Le premier paramètre : %1
echo Le second  paramètre : %2
 
exit 5

Et voici ce que j'ai fait en Perl :

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
#!C:\perl64\bin\perl.exe -w
 
use strict;
use warnings;
use diagnostics;
use 5.24.1;
 
# --------------------------------
# Passage de paramètres à un Batch
# --------------------------------
 
my @cmd = ('batch.bat', 'hello', 'sir');
 
open DATA, "@cmd|" or die "Ouverture impossible des données : $!" ;
 
while (my $line = <DATA>)	{ $line =~ s/[\n\r]+//g; say ">>".$line."<<"; }
 
close DATA;

Et voici le résultat que j'obtiens :

Code :

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

1
2
>>Le premier paramètre : hello<<
>>Le second  paramètre : sir<<

Avant de poster, j'ai cherché sur le net, sans succès.
J'ai pensé que le code retour pouvait être récupéré par "$!" mais je n'obtiens rien à l'exécution.

Je désire donc en Perl, récupérer la valeur 5.

@+

[Lolo78]

Bonjour,

Pour récupérer le code retour d'un appel système, consulte la documentation de la fonction Perl system: https://perldoc.perl.org/functions/system.html

[Artemus24]

Salut Lolo78.

Je dois aussi récupérer le résultat (stdout + stderr) de la commande.
Du coup, je me retrouve à ne pas pouvoir utiliser la forme "open", celle que j'ai indiqué dans mon premier message, ni celle d'utiliser "system()".
Il me reste alors que la solution consistant à utiliser les backticks, que voici :

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
#!C:\perl64\bin\perl.exe -w
 
use strict;
use warnings;
use diagnostics;
use 5.24.1;
 
# --------------------------------
# Passage de paramètres à un Batch
# --------------------------------
 
my @cmd = ('Batch.bat', 'hello', 'sir', '2>&1');
 
my $res    = `@cmd`;
my $codret = $? >> 8;
 
foreach (split /\n/, $res) { say ">>>".$_."<<<"; }
 
say ">>> code retour = ".$codret;

Dans le lien que vous m'avez communiqué, il faut appliquer ceci "$? >> 8" pour récupérer le code retour du batch. Quel est la différence avec "$!" ?

Existe-t-il d'autres approches pour gérer des appels systèmes ?

@+

[Lolo78]

Bonjour,

attention, les backticks capturent le résultat stdout de la commande, mais à ma connaissance pas stderr. A moins de rediriger stderr vers stdout, c'est apparemment ce que tu fais dans ta commande shell/batch.

$? renvoie le statut de la dernière commande système (system, backticks ou autre), alors que $! renvoie le libellé (ou le numéro en contexte numérique) de la dernière erreur. Donc, $! n'est pas alimenté s'il n'y a pas d'erreur. Je ne suis pas entièrement sûr de comment cette différence se traduit exactement sous Windows (et je ne suis pas sûr que le décalage de 8 soit adapté à Windows).

Il existe des modules CPAN permettant de gérer ces différents éléments de façon plus simple. Voir par exemple IPC::System::Simple (http://search.cpan.org/~pjf/IPC-Syst...stem/Simple.pm).

Voir aussi le module System::Command (http://search.cpan.org/~book/System-...tem/Command.pm). Il y en a certainement d'autres, à toi de choisir selon tes besoins.

[Artemus24]

Salut lolo78.

attention, les backticks capturent le résultat stdout de la commande, mais à ma connaissance pas stderr.

Oui, en effet, vous avez raison.

A moins de rediriger stderr vers stdout, c'est apparemment ce que tu fais dans ta commande shell/batch.

C'est bien la solution que j'ai adopté afin de récupérer aussi les erreurs.

$? renvoie le statut de la dernière commande système (system, backticks ou autre)

D'après ce que j'ai compris, c'est le statut (ou code retour) de la dernière commande pipeline.
Et toujours d'après ce que j'ai compris, il n'y a pas d'autres cas que "system()" et les backticks.

alors que $! renvoie le libellé (ou le numéro en contexte numérique) de la dernière erreur.

Je pense que cela concerne l'erreur système et non l'erreur logique qu'un Batch Windows peut retourner.

Donc, $! n'est pas alimenté s'il n'y a pas d'erreur.

Même pas un zéro pour dire que tout c'est bien passé ?

Je ne suis pas entièrement sûr de comment cette différence se traduit exactement sous Windows

Il faut faire la distinction entre le lancement de la commande et son résultat.
Pour une raison que j'ignore, la commande peut ne pas s'exécuter. Je pense que c'est le rôle de "$!" de nous renseigner sur cette erreur.
Mais quand la commande s'exécute, elle peut aussi nous retourner une erreur de fonctionnement. Et c'est le rôle de "$?".

et je ne suis pas sûr que le décalage de 8 soit adapté à Windows.

Il est obligatoire, sinon je ne peux pas récupérer le code retour !

Il existe des modules CPAN permettant de gérer ces différents éléments de façon plus simple.

Pour l'instant, je préfère utiliser ce que propose d'une manière native (ou standard) le Perl ( Version 5.24.1).

Voir par exemple IPC::System::Simple (http://search.cpan.org/~pjf/IPC-Syst...stem/Simple.pm).

IPC = interprocess communication. Je n'ai aucun usage de la communication inter processus.

Voir aussi le module System::Command (http://search.cpan.org/~book/System-...tem/Command.pm).

Je n'en aurai pas trop l'usage non plus.

Il y en a certainement d'autres, à toi de choisir selon tes besoins.

Je désire faire de l'habillage de programmes afin de faire un minimum de manipulation.
Et vu que la plupart du temps, ce sont les mêmes erreurs à gérer, je pense pouvoir automatiser ces problèmes.

Le pire est que chaque traitement gère ses anomalies comme bon lui semble.
Parfois, c'est un code retour, et parfois dans le flux des messages reçus, il y a un message d'anomalie à traiter.
C'est pourquoi, j'étais parti sur une gestion de flux comme si j'avais un fichier.

@+

[Lolo78]

Salut lolo78.

D'après ce que j'ai compris, c'est le statut (ou code retour) de la dernière commande pipeline.
Et toujours d'après ce que j'ai compris, il n'y a pas d'autres cas que "system()" et les backticks.

Il y a également close sur un pipe, wait ou waitpid.

Je pense que cela concerne l'erreur système et non l'erreur logique qu'un Batch Windows peut retourner.

Exact. Une erreur logique retournée dans un batch, c'est dans le statut ou code retour.

Si en revanche le batch plante par exemple parce qu'il ne trouve pas un fichier à ouvrir ou à copier, ce sera en principe une erreur système dans $!.

Même pas un zéro pour dire que tout c'est bien passé ?

Non, à ma connaissance la variable est soit undef soit une chaîne vide. Mais une valeur undef et la chaîne vide sont toutes deux évaluées à faux (comme zéro) dans un contexte booléen.

Pour l'instant, je préfère utiliser ce que propose d'une manière native (ou standard) le Perl ( Version 5.24.1).

Comme tu veux... Cela marche tant que ça reste simple et c'est aussi ce que je préfère faire dans la mesure du possible.

IPC = interprocess communication. Je n'ai aucun usage de la communication inter processus.

Quand tu lances une commande système, tu lances en fait un autre processus et ce module permet de bien communiquer avec le processus fils que tu as lancé. Consulte la doc, il est précisément destiné au genre de choses que tu cherches à faire. (Et l'autre module aussi). Pour des cas un peu compliqué, ce module te donne beaucoup plus de finesse de gestion des situations.