perlquestion
stefan k
Dear Monks,<br>
I'm currently working on glueing C and perl together (maybe there
will be no more <code>fopen()</code> and <code>fscanf()</code> *grin*)
<p>
The problem is that a) the bindings are hard to understand and b) my code
leaks memory as hell. But I took almost everything more or less directly
from <code>man perlembed</code> and <code>man perlguts</code>, thus it can't be _that_
wrong...<br>
BTW: this is a cooked down version for you, fellow Monks, that doesn't leak as much as
the original which has some SVs and stuff, but still ... it leaks :(
<p>
I post the code right below, but a quick word of warning: yes, it's C ;-)
<code>
/* compile with */
/* gcc -o monk monk.c `perl -MExtUtils::Embed -e ccopts -e ldopts` */
/* I tried this under Perl 5.6.0 and perl 5.005_3 */
# include <stdio.h>
# include <EXTERN.h>
# include <perl.h>
# include <unistd.h>
void call_perl();
int main(int argc, char **argv, char **env)
{
/* That's OK: */
printf("Testing perl embedding\n");
call_perl();
/* But in a loop we leak as hell */
while (1) {
call_perl();
sleep(1);
}
}
void call_perl(void) {
static PerlInterpreter *my_perl;
char *embedding[] = { "", "-e", "0" };
my_perl = perl_alloc();
perl_construct(my_perl);
perl_parse(my_perl, NULL, 3, embedding, NULL);
perl_run(my_perl);
eval_pv("print \"Perl Version: $]\\n\"",TRUE);
perl_destruct(my_perl);
perl_free(my_perl);
}
</code>
<p>
<table width="80%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="000066"><font color="white">Regards</font></td>
<td bgcolor="000066" align="right">
<a href="http://www.skamphausen.de">
<font color="white">Stefan K</font></a>
</td>
</tr>
</table>