Discussion :

[klu]

Bonjour,
Je suis en train de coder mon premier script la récupération du résultat d'une commande shell me pose soucis.

J'utilise la commande system mais quoi que je fasse je récupère toujours à mon n'avis le code de retour de la commande mais pas le résultat.

J'ai regardé dans la documentation à ma disposition, mais je doit reconnaître que cela reste plus qu'obscur pour moi.

Si quelqu'un peut m'aider ...

[Mr6]

http://www.developpez.net/forums/vie...ghlight=system
Il y a aussi la

@+
Mr6

[goblin]

Personelement j'ai essayé les méthodes de ce thread aucune ne marche sur mon windows xp pro , je continue de chercher ...

[Mr6]

comment ca ?

Code :

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

1
2
 
my $res = `ma_commande.exe`;

normalement ceci te permet de récupérer le résultat de ta commande dans $res. Après, tu peux choisir le type en fonction de ce que tu as à récupérer (comme un tableau pour une liste de fichiers comme dans le thread en question).

@+
Mr6

[Woufeil]

Il y a juste u petit défaut à ce script : si l'utilisateur doit rentrer une variable quelconque, cela ne sera pas affiché à l'écran, et donc l'utilisateur ne sera pas qu'il doit le faire et le programme attendra simplement la saisie...
Mais si le programme ne fait que de l'affichage, alors le script fonctionne parfaitement !

[goblin]

Voici ce que j'ai fait et qui ne marche pas !

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
#!/usr/bin/perl -w
use strict;
 
my $t = `pdftotext -f 0 -layout -enc UTF-8 -eol dos -nopgbrk csharp.pdf`;
 
my $file = '<STDOUT>';
open(ERROR, '>>$file');
my $i = <ERROR>;
clode (ERROR);
 
open (FILE, ">>exit.txt");
flock(FILE, 2);
print FILE "$i";
flock(FILE, 8);
close (FILE);

si je fait un print $t; j'ai droit a une magnifique erreur :

Use of uninitialized value in string at C:\blablable\0.pl line 15

print FILE "$i";

voilou

[Jedai]

Normal... Tu n'essaie pas d'imprimer $t tu essaie d'imprimer $i...

Code :

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

1
2
 
open(ERROR, '>>$file');

Là, tu ouvres en écriture à la fin du fichier (mode ajout '>>') le fichier nommé '<STDOUT>', et ensuite tu essaies de le lire.......

Tu voulais sans doute écrire :

Code :

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

1
2
 
my $i = <STDIN>;

à la place de :

Code :

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

1
2
3
4
5
 
my $file = '<STDOUT>';
open(ERROR, '>>$file');
my $i = <ERROR>;
clode (ERROR);

--
Jedaï

[goblin]

En fait le but c de lancer pdftotext comme ceci

Code :

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

my $t = `pdftotext -f 0 -layout -enc UTF-8 -eol dos -nopgbrk csharp.pdf`;

et de récupérer les données du traitement de pdftotext dans une variable pour pouvoir faire un traitement dessus je ne sais pas si c'est parce que je suis sous windows mais je ne peut récupérer les données directement sur $t

J'ai vue dans différente doc le mécanisme des pipes mais je n'ai pas tout compris

[Jedai]

Si tu peux, ça n'a rien à voir avec Windows ou pas Windows. Maintenant essaie de me donner un exemple clair qui ne marche pas, avec une autre commande que pdf2text (une commande disponible sur tous les windows, par exemple "echo") pour que je t'indique ce que tu fais incorrectement.
Si ça marche avec les autres commandes, alors le problème vient de pdf2text et de la façon dont tu l'utilises. Rappelle toi qu'avec `` tu récupères la sortie standard du programme, pas la sortie d'erreur ni quoi que ce soit d'autre (en bref tu récupères la plupart des choses qui s'affiche à l'écran quand tu l'exécute en ligne de commande mais pas les rapports d'erreur).
Il y a moyen de récupérer la sortie d'erreur si c'est ça le problème.

--
Jedaï