吊丝逆袭PHP扩展Perl（蛋都碎了）

墨迹哥

经历无比痛苦的折磨，让我意志高昂。PHP板块果然是你妹的冷板凳模块。。
他妹的，发了帖子光一堆人看，都木有人回的。一瞬间心情犹如蛋碎一般。
更让人无比蛋疼的事，就是这个无比让人无奈的扩展模块，折腾到昨晚2点多，
这耗时2天多的玩意终于装上了，现在考虑的是如何使用该模块。问题随之又来了。
看了网上的一些介绍，瞬间感觉鸭梨山大。故此发出来和大伙揣摩揣摩。
首先说，偶这不是伸手党的帖子，是交流～！是交流。。。
别看了不回复，哪怕你叫几声，起码你存在阿！我的神阿！～～

代码No1如下：

1. <?php
   
2. 　　$perl = new Perl();
   
3. 　　$perl->eval('use Digest::MD5');//load perl class MD5
   
4. 　　echo $perl->{'Digest::MD5::md5_hex'}('perl2php');
   
5. 　　var_dump($perl->md5_hex(“Hello”));
   
6. 　　$perl->eval('require "TEST.pm";');//load a perl class file
   
7. 　　echo $perl->eval($x.'+'.$y.';');　// caculate and print the result of x+y
   
8. 　　$perl->eval('$z='.$x.'+'.$y.';');
   
9. 　　echo $z;
   
10. 　　$perl->eval(‘
    
11. 　　　　　　　　sub sum{
    
12. 　　　　　　　　　　my $x = shif(@_);
    
13. 　　　　　　　　　　foreach my $y (@_){
    
14. 　　　　　　　　　　　　$total + =$y;
    
15. 　　　　　　　　　　}
    
16. 　　　　　　　　　　return $total
    
17. 　　　　　　　　}
    
18. 　　　　　　　　’);
    
19. 　　echo $perl->eval(“sum(1,2,3,4)”).”.”;
    
20. ?>

复制代码

我无比的不理解传值的过程。
例如我的程序中使用了getopts这个模块的话，该如何传值？
在网上找了段代码分析了下
代码NO2如下：

1. <?php
   
2.     //启动对象
   
3.     ob_start();
   
4.     //创建Perl对象
   
5.     $perl = new Perl();
   
6.     //执行Perl脚本
   
7.     $perl->require("test.pl");
   
8.     //接收数据
   
9.     $out = ob_get_contents();
   
10.     //清空缓存
    
11.     ob_end_clean();
    
12.     //打印输出
    
13.     print "Perl: $out";
    
14. 
    
15. ?>
    

复制代码

这段代码基本上实现了脚本的运行，和exec()的运行结果无疑～
一瞬间不明白这区别在哪。。

我说说我想要的效果把：

例如：

1. exec('perl test.pl -h localhost -p 100');

复制代码

这样的情况，在代码NO2的中该怎么把参数写入呢？求科普！求解答！

shijiang1130

等下，我装个php的perl扩展，不知道是不是也要装半天:wink:

墨迹哥

回复 2# shijiang1130


    这个看命～。。。   我求解决办法。。。

zhlong8

不懂PHP Getopt::Std 是处理 @ARGV 的， 直接给 @ARGV 赋值不行吗

墨迹哥

回复 4# zhlong8


    这个不清楚。。你说的我明白，但是我想要的不是PERL能不能这么作。。
   
   我的Perl脚本是多线程，我想让PHP能够实时把print的输出打印在web页面当中，
  
   可是这蛋疼的东西老是实现不了 。。。

shijiang1130

墨迹哥 发表于 2013-04-06 21:27
回复 2# shijiang1130

/tmp/pear/temp/perl/php_perl.c: In function 'php_perl_clone':
/tmp/pear/temp/perl/php_perl.c:1666:7: warning: format '%ld' expects argument of type 'long int', but argument 3 has type 'unsigned int' [-Wformat]
/tmp/pear/temp/perl/php_perl.c: In function 'zm_info_perl':
/tmp/pear/temp/perl/php_perl.c:1843:3: warning: unknown conversion type character 'v' in format [-Wformat]
/tmp/pear/temp/perl/php_perl.c: In function 'zim_Perl_eval':
/tmp/pear/temp/perl/php_perl.c:1905:13: warning: passing argument 3 of 'Perl_sv_2pv_flags' from incompatible pointer type [enabled by default]
In file included from /usr/lib/perl/5.14/CORE/perl.h:5036:0,
                 from /tmp/pear/temp/perl/php_perl.c:38:
/usr/lib/perl/5.14/CORE/proto.h:3565:21: note: expected 'STRLEN * const' but argument is of type 'int *'
make: *** [php_perl.lo] 错误 1
ERROR: `make' failed

墨迹哥

回复 6# shijiang1130


    下载这个：

1. wget https://raw.github.com/do-aki/php-ext-perl/a3d7db22eb7964ea9cb39ea2f866d10df26655d4/php_perl.c

复制代码

然后修改：php_perl.h最后一行
原本：

1. 
   
2. #endif
   

复制代码

改成：

1. #define PHP_PERL_VERSION 0
   
2. #endif
   

复制代码

就可以了！

shijiang1130

回复 7# 墨迹哥


    已经装上了

墨迹哥

回复 8# shijiang1130


    这是命。。。。   快想想有啥办法能够解决我的思路。。

shijiang1130

不是。我的环境是unbunt 12.10，
PHP Fatal error:  Class 'Perl' not found in /var/www/index.php on line 2