argument programme --> **argv

Bonjours,

voilà, je vous explique mon probleme :
Je veux lancer un script Perl depuis un programme C, et donc j'ai le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

#include <EXTERN.h> #include <perl.h>     static PerlInterpreter *my_perl;   int main (/* int argc, char **argv, char **env */) { char *args[] = { NULL }; int arg = 1;   char *embedding[] = { "prog.pl" };   my_perl = perl_alloc(); perl_construct(my_perl); // l'erreur est au niveau de perl_parse. perl_parse(my_perl, NULL, arg, embedding, NULL); perl_call_argv("prog", G_VOID | G_NOARGS, args); perl_destruct(my_perl); perl_free(my_perl); }

---

Le truc est le suivant : la fonction perl_call_argv appelle une sous routine "prog" qui est situé dans le fichier "prog.pl" (classe perl). Il faut donc spécifié le fichier qui contient "prog.pl". Ce qui normalement est fait en passant la chaine "prog.pl" en argument quand on éxécute le prog.
C'est la fonction "perl_parse" qui s'en occuppe sous la forme suivante :

Code:

---

1 2	perl_parse(my_perl, NULL, argc, argv, NULL);

---

avec bien sur l'entete du main suivante :

Code:

---

1 2	int main( int argc, char **argv, char **env)

---

Seulement, plutot que de le passer en paramètre à la ligne de commande, je voudrais entrer en dur dans le code C, le nom du fichier ou se trouve la sub routine (prog dans proG.pl si vous me suivez ;) )
J'ai donc fait les modifications suivantes :

Code:

---

1 2 3 4 5 6 7

char *embedding[] = { "prog.c"}; int arg = 1; ...   perl_parse( NULL, arg, embedding, NULL); ...

---

Ce qui donne le source que j'ai mis tout en haut.

J'en viens donc au coueur du probleme : pour la compilation et les link, pas de probleme mais osque j'éxéute le prog le message suivant s'affiche :

Code:

---

1 2	L'instrcution à "0x78012ba1" emploie l'adresse mémoire "0x00000001". La mémoire ne peut pas être read.

---

:x Grrrr méchante machine !!

Si qqun sait d'où ca peut venir et m'aider je lui en serait tres reconnaissant.

@+

Salut,

Pourquoi compliquer la chose :

Code:

---

1 2	char *embedding[] = { "prog.pl" };

---

?

Fais donc plutot :

Code:

---

1 2	char embedding[] = "prog.pl" ;

---

Et, comme c'est une chaine qui a priori ne doit pas bouger, je ferais plutot ceci :

Code:

---

1 2	const char *embedding = "prog.pl";

---

Le pb c'est que le type du troisièeme paramètre de "perl_parse" est char **.

J'ai modifié ceci :

Code:

---

1 2	char *embedding[] = { "prog.pl", NULL};

---

Et il ne me met plus l'erreur. Par contre, il n'éxécute pas le script shell...

euh, le script Perl, excusez moi :D

Bon ben en fait j'ai trouvé (ouf!)

Il suffisait de modifier ceci :

Code:

---

1 2	char *embedding[] = { "", "prog.pl" };

---

Merci.
@+

A priori perl_parse utilise argv donc le premier paramètre est argv[1] et pas argv[0]. Ton embedding devrait donc être :
char *embedding[] = { "", "prog.pl"};

Citation:

---

Envoyé par kij

Bon ben en fait j'ai trouvé (ouf!)

---

Bon .. j'ai répondu trop tard :wink: