[C调用Perl] 如何在C中调用Perl，希望大家能给个简单的例子

nine8

想在C中调用perl来做些文本的处理， 环境为linux下， 编译器gcc

通过给 c程序不同的参数，来调用perl执行相关的操作（这里不是用C写include perl.h写个编译器。然后c_prog perl.pl,不是这样）
如： c_prog -p   那么 c_prog就会自动调用目前下的print.pl做操作， 或是最好能将print.pl与C一起编译就更好了

网上查了下，讲直接用C 包含perl的2个头文件，然后编译出一个perl解释器，感觉这样不太好，所以请大家指教，该如何做

所以还请大家能帮忙给出个最简单的例子，就是简单的C调用perl输出 Hello ChinaUnix!

谢谢！

mgqw

用popen管道吧，不过我只知道用popen管道调用shell读取返回值，应该和调用perl一个道理，下面是简单例子：

1. #include <unistd.h>
   
2. #include <stdlib.h>
   
3. #include <stdio.h>
   
4. #include <string.h>
   
5. 
   
6. int main()
   
7. {
   
8.     FILE *read_fp;
   
9.     char buffer[BUFSIZ + 1];
   
10.     int chars_read;
    
11.     memset(buffer, '\0', sizeof(buffer));
    
12.     read_fp = popen("uname -a", "r");
    
13.     if (read_fp != NULL) {
    
14.         chars_read = fread(buffer, sizeof(char), BUFSIZ, read_fp);
    
15.         if (chars_read > 0) {
    
16.             printf("Output was:-\n%s\n", buffer);
    
17.         }
    
18.         pclose(read_fp);
    
19.         exit(EXIT_SUCCESS);
    
20.     }
    
21.     exit(EXIT_FAILURE);
    
22. }

复制代码

[mgqw@localhost Desktop]$ ./a.out
Output was:-
Linux localhost.localdomain 2.6.27.25-78.2.56.fc9.i686 #1 SMP Thu Jun 18 12:47:50 EDT 2009 i686 i686 i386 GNU/Linux

mgqw

再把里面的shell命令换成从网络上抄来的hello perl脚本（我不会perl-_-!）:
myp.pl

1. #！/usr/bin/perl
   
2.    printf "helo,perl!\n"

复制代码

popen1.c

1. #include <unistd.h>
   
2. #include <stdlib.h>
   
3. #include <stdio.h>
   
4. #include <string.h>
   
5. 
   
6. int main()
   
7. {
   
8.     FILE *read_fp;
   
9.     char buffer[BUFSIZ + 1];
   
10.     int chars_read;
    
11.     memset(buffer, '\0', sizeof(buffer));
    
12.     read_fp = popen("./myp.pl", "r");
    
13.     if (read_fp != NULL) {
    
14.         chars_read = fread(buffer, sizeof(char), BUFSIZ, read_fp);
    
15.         if (chars_read > 0) {
    
16.             printf("Output was:-\n%s\n", buffer);
    
17.         }
    
18.         pclose(read_fp);
    
19.         exit(EXIT_SUCCESS);
    
20.     }
    
21.     exit(EXIT_FAILURE);
    
22. }

复制代码

下面是命令输出
[mgqw@localhost Desktop]$ ./myp.pl
helo,perl!
[mgqw@localhost Desktop]$ cc popen1.c
[mgqw@localhost Desktop]$ ./a.out
Output was:-
helo,perl!

nine8

非常感谢楼上的朋友的指教

但是感觉这样的话，执行那个myp.pl其实还是调用perl的解释器来解析的，而并非C程序本身

mgqw

你要C语言程序本身来解析的话，就只有找找C语言有没有perl库了。

Ray001

最简单的应该是直接system调用吧。

nine8

恩，有perl库 perl.h 和EXTERN.h

可以 c_pro  perl.pl 这样将 perl.pl中的内容解释执行

但是不知道如何这么做：

就是 c_proc  -r  通过参数来控制执行的功能  而不是 将perl.pl文件作为参数

nine8

直接system调用，移植性是不是不太好呢？

mgqw

直接用system好像取不到输出值，这才是问题。
移植性基本不需要考虑。
要移植程序肯定不只这个地方有依赖。

Ray001

system调用，失败了返回值不为0。发个例子

1. /home/ray001/tmp >cat p.c
   
2. #include <stdio.h>
   
3. int
   
4. main(  )
   
5. {
   
6.         char cmd_str[]="./hello.pl";
   
7.         if ( system(cmd_str) )
   
8.         {
   
9.                 printf ( "调用外部程序失败\n" );
   
10.                 exit (1);
    
11.         }
    
12.         exit (0);
    
13. }
    
14. /home/ray001/tmp >./p
    
15. hello,cu!

复制代码