Discussion :

[espadon1]

Salut tout le monde,
Je voudrais exécuter un script perl qui lance une commande shell, et j'aimerais récupérer le résultat.

Je pensais à ca :

Code :

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

1
2
 
my $result = system("/opt/CSCOpx/bin/dcrcli -u admin cmd=lsids dn=$nom");

Déjà est ce que la syntaxe est bonne ?

[2Eurocents]

C'est pas faux

Il y a déjà quelques infos dans la FAQ

Je pensais à ca :

Code :

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

my $result = system("/opt/CSCOpx/bin/dcrcli -u admin cmd=lsids dn=$nom");

J'aurai tendance à séparer commande et paramètres, au moins :

Code :

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

my $result = system("/opt/CSCOpx/bin/dcrcli", "-u admin cmd=lsids dn=$nom");

[espadon1]

Perdu j'ai essayé ta solution, ca ne marche malheureusement pas.
En fait je récupère bien quelque chose dans $result mais pas ce que je voudrais.

Voila ce que la commande affiche (et que je voudrais récupérer) :

Code :

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

1
2
3
4
5
 
Total number of devices in DCR:1
List of devices:.... 
 
ID = 2908 (nomdelequipement)

Je voudrais récupérer ce code (2908) mais lorsque je fais un print $result il m'affiche 65280

[2Eurocents]

Voila ce que la commande affiche (et que je voudrais récupérer) :

Code :

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

1
2
3
4
5
 
Total number of devices in DCR:1
List of devices:.... 
 
ID = 2908 (nomdelequipement)

Je voudrais récupérer ce code (2908) mais lorsque je fais un print $result il m'affiche 65280

Je viens de relire mes docs ... system n'est pas la bonne solution car il affiche à l'écran (STDOUT) les sorties du programme appelé et retourne le code de retour.

Une solution serait l'usage des backquotes :

Code :

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

my $result=`/opt/CSCOpx/bin/dcrcli -u admin cmd=lsids dn=$nom`;

[espadon1]

Ca y est c'est bon ca marche nickel, j'avais encore une petite erreur
C'est dans un tableau que je dois récupérer les infos.

Code :

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

1
2
 
my @result=`/opt/CSCOpx/bin/dcrcli -u admin cmd=lsids dn=$nom`;

Merci beaucoup 2Eurocents, à mes yeux tu es le grand sage du perl