Dear Monks,
I'm currently working on glueing C and perl together (maybe there will be no more fopen() and fscanf() *grin*)

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 man perlembed and man perlguts, thus it can't be _that_ wrong...
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 :(

I post the code right below, but a quick word of warning: yes, it's C ;-) 

/* 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);

}

[download]

Regards Stefan K

In reply to MemLeak in Perl from C Calls by stefan k

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.