Discussion :

[kiki91]

J'utilise WxPerl avec WindowsXP.
Si jutilise Wx::ExecuteCommand pour lancer une commande dos (ex: dir) , en recuperant la sortie de la commande avec GetInputStream pour l'afficher dans une fenetre WxFrame , les caractere accentué ne sont pas affiché.

Il est vrai que la sortie est en cp850 , donc j'utilise "Text::Iconv" , mais le probleme est le même .

Ce qui est etonnant c'est que si je ne passe pas par Wx::ExecuteCommand, en utlisant unopen(HANDLER, ) tous simple puis convertie avec "Text::Iconv" , ca marche impeccable.

Mon souci c'est que je veut pouvoir lire la sortie standard independamment de la sortie erreur et Wx::ExecuteCommand me permet de faire ca.

Comment Faire pour recuperer avec GetInputStream une sortie non convertie ?

[Jedai]

J'utilise WxPerl avec WindowsXP.
Si jutilise Wx::ExecuteCommand pour lancer une commande dos (ex: dir) , en recuperant la sortie de la commande avec GetInputStream pour l'afficher dans une fenetre WxFrame , les caractere accentué ne sont pas affiché.
....

Mon souci c'est que je veut pouvoir lire la sortie standard independamment de la sortie erreur et Wx::ExecuteCommand me permet de faire ca.

Comment Faire pour recuperer avec GetInputStream une sortie non convertie ?

Quel est le problème exactement ? Tu es obligé d'utiliser ExecuteCommand ? Tu ne peux pas te contenter d'un petit open3 (ou open2) ?

--
Jedaï

[kiki91]

Disons que c'est plus simple avec ExecuteCommande , la sortie est lue et si il y a des donnée sur la sortie d'erreur je peut le verifier facilement et les affichez si necessaire.

Le Kill du processus est egalement grandement facilite et de plus quand je Package mon script en exe , avec open2 ou open3 l'appli refuse de se lancer ?


Donc avec ExecuteCommande tous est parfait sauf pour afficher correctement les accent venant d'appli dos formatté en cp850

[kiki91]

Vue que je reste bloqué , je modifie mon approche et utilise open3 suivant :

my $cmd = "dir c:\\windows";
local *CATCHERR = IO::File->new_tmpfile;
local *CATCHOUT = IO::File->new_tmpfile;
my $pid = open3(gensym, \*CATCHOUT, ">&CATCHERR", "$cmd ");
while ( <CATCHOUT>) {( print "$_")};
waitpid($pid, 0);
seek CATCHERR, 0, 0;
while ( <CATCHERR> ) {print "err>>>"."$_"}

En utilisant l'interpreteur perl ca marche mais si je package le scrip avec pp et je le lance , le script affiche la premiere ligne est se brake.

Aidez-moi -- please