[Perl et C++] PerlEmbed : alternative a perl_run()

Bonjour,
Voila je realise un petit module en c++ qui interprete du perl.

#include <EXTERN.h>
#include <perl.h>

static PerlInterpreter *my_perl;

int main()
{
char *embedding[] = { "", "test.pl"};
my_perl = perl_alloc();
perl_construct(my_perl);

perl_parse(my_perl, NULL, 2, embedding, NULL);

//perl_run(my_perl);

perl_destruct(my_perl);
perl_free(my_perl);
}

Mon code est tres simple et fonctionne bien.
Le probleme est que perl_run affiche le resultat sur la sortie standard et j'aimerai moi pouvoir stocker ce resultat dans une variable.
Il y aurait bien une solution : rediriger la sortie standard mais c'est sale et pas pratique.

Petite precision je suis sous Visual Studio.

Merci d'avance !

Bonjour,
Il faut utiliser la fonction perl_call et non plus perl_run.
D'après la doc tu peux récupérer une ou une liste de valeurs, et aussi passer des arguments.

http://www.perl.com/doc/manual/html/...rning_a_Scalar

Ok mais je me suis mal exprime
Prenons un exemple, j'ai le fichier test.pl avec comme code :
-------
#!/usr/local/bin/perl

print("content-type : text/html\n\n");
print("Hello World!\n");
-------

perl_run et perl_call vont tous deux m'afficher les 2 chaines de caracteres "content-type : text/html" et "Hello World!" sur la sortie standard.
J'aimerai que ces 2 chaines soient stockees dans une variable. En gros j'aimerai que toutes les sorties de test.pl soient stockees dans une variable dans mon prog c. Mais je ne trouve aucune routine qui irait bien. Merci