embed.c

   1 #include <EXTERN.h>
   2 #include <perl.h>
   3
   4 static PerlInterpreter *my_perl;
   5
   6 main (int argc, char **argv, char **env)
   7 {
   8         STRLEN n_a;
   9         char *embedding[] = { "", "-e", "0" };
  10
  11         my_perl = perl_alloc();
  12         perl_construct( my_perl );
  13
  14         perl_parse(my_perl, NULL, 3, embedding, NULL);
  15         perl_run(my_perl);
  16
  17         /** Treat $a as an integer **/
  18         perl_eval_pv("$a = 3; $a **= 2", TRUE);
  19         printf("a = %d\n", SvIV(perl_get_sv("a", FALSE)));
  20
  21         /** Treat $a as a float **/
  22         perl_eval_pv("$a = 3.14; $a **= 2", TRUE);
  23         printf("a = %f\n", SvNV(perl_get_sv("a", FALSE)));
  24
  25         /** Treat $a as a string **/
  26         perl_eval_pv("$a = 'rekcaH lreP rehtonA tsuJ'; $a = reverse($a);", TRUE);
  27         printf("a = %s\n", SvPV(perl_get_sv("a", FALSE), n_a));
  28
  29         perl_destruct(my_perl);
  30         perl_free(my_perl);
  31 }
  32