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

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

Sa marche pas , voici mon script pour tester

Code :

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

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

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 :

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

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

par contre si je fait

Code :

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

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

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

alors que sans @t tout marche

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 :

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

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

--
Jedaï

pense a utilise exec.

Code :

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

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 
}

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

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 :

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

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 :

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
#!/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ï

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é