4 static PerlInterpreter *my_perl;
6 main (int argc, char **argv, char **env)
9 char *embedding[] = { "", "-e", "0" };
11 my_perl = perl_alloc();
12 perl_construct( my_perl );
14 perl_parse(my_perl, NULL, 3, embedding, NULL);
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)));
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)));
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));
29 perl_destruct(my_perl);