Ecouter la sortie d'un exe

Je voudrai savoir si perl peut écouter la sortie d'un exe , je dispose d'un exe qui tourne dans la console windows , et pour avoir un retour des résultats qu'il produit je doit faire

Citation:

---

catppt [commande] >> res.txt

---

, ce qui n'est pas très très jolie , je me demande donc si perl ne peut pas directement récupéré la sortie de l'exe

merci

Salut

Avec l'appel system, tu peux récupérer la sortie de ton appli. La FAQ en parle.

@++

Sa marche pas , voici mon script pour tester

Code:

---

1 2 3 4 5

#!/usr/bin/perl -w   $i = system("pdftotext, -f 1 -layout -raw -enc UTF-8 -nopgbrk doc.pdf");   print "$i\n";

---

A j'oubliais perl me dort l'erreur

Citation:

---

Error : Couldn't open file ','
256

---

Ben là, c'est juste que il ne trouve pas le fichier (erreur de chemin ou d'ouverture proprement dite).

J'ai trouvé la soluce pour sa il suffisait de faire

Code:

---

1 2 3

#!/usr/bin/perl -w   system("xls2csv -d UTF-8 7.xls");

---

par contre si je fait

Code:

---

1 2 3

#!/usr/bin/perl -w   my @t = system("xls2csv -d UTF-8 7.xls");

---

pour récupérer le text dans @t perl me sort

Citation:

---

Cannot load charset cp866 - file not found
Connot load target charset cp866

---

alors que sans @t tout marche :cry:

system() renvoie juste le code d'erreur, pour récupérer la sortie d'une commande, soit on l'ouvre avec open( et un pipe ), soit on l'encadre de "backtick" (AltGr + è : `) ou de son équivalent en q* : qx/ /. Exemple :

Code:

---

1 2	my @sortie = `ma commande qui va bien !`;

---

--
Jedaï

pense a utilise exec.

Code:

---

1 2 3 4 5 6 7

#!/usr/bin/perl $last_line=exec("command a execute",$var_val); echo $last_line."\n"; # donnee le dernier ligne de resultat foreach($var_val as $val){ echo $val."\n"; # affichage ligne par ligne }

---

:wink:

NON NON, exec() lance la commande et ne revient jamais !! exec() remplace le processus perl par la commande, donc ce qui se trouve après exec() n'est exécuté que si exec() échoue.

--
Jedaï

Heu Jedai je n'est pas compris ce que tu veut dire par

Citation:

---

system() renvoie juste le code d'erreur, pour récupérer la sortie d'une commande, soit on l'ouvre avec open( et un pipe ), soit on l'encadre de "backtick" (AltGr + è : `) ou de son équivalent en q* : qx/ /. Exemple :
Code:

my @sortie = `ma commande qui va bien !`;



--
Jedaï

---

Qu'est ce que tu n'as pas compris ? Pour récupérer la sortie d'une commande shell, il ne faut pas utiliser system() (qui renvoie le code d'erreur), ni exec() (qui arrête le script Perl), mais bien les backtick, c'est à dire le caractère "`", tout ceux qui ont fait du shell le comprendront sans problème.
Par exemple :

Code:

---

1 2	my @liste_des_fichiers = `ls -1`;

---

Tout simplement.
(il existe aussi des méthodes pour récupérer des flux d'entrées, de sortie d'erreur, etc...)

--
Jedaï

Effectivement sa marche , par contre je ne recoie pas les donnée en retour.

Pour info je suis sous windows

Si tu reçois les données. Par contre tu reçois les données de la sortie standard, pas celle de la sortie d'erreur par exemple. Ou alors tu as fait une erreur dans ton code, si tu nous le montrais ça serait plus facile de t'aider tu sais... Tu pourrais aussi nous dire ce que tu cherches à faire en réalité.

--
Jedaï

Voici mon code

Code:

---

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

#!/usr/bin/perl -w   use strict; use LWP::Simple;   extract(@ARGV);   sub extract {   foreach my $doc (@_) {   my $result = get($doc); imprimer($result); my @texte = `catdoc.exe -d UTF-8 temp.doc`; unlink "temp.doc";     print "@texte\n";   } }     sub imprimer { my $l = shift; open FILE, '>temp.doc' or die "temp.doc : $!\n"; binmode(FILE); print FILE "$l"; close FILE; }

---

Je suppose que la différence entre "@text" et "@texte" est une erreur de frappe sur le forum ?

--
Jedaï

Citation:

---

Envoyé par Jedai

Je suppose que la différence entre "@text" et "@texte" est une erreur de frappe sur le forum ?

--
Jedaï

---

Voilou c'est corrigé