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

墨迹哥

回复 19# shijiang1130


    如果按照这个说法来弄的话，估计得整个程序重写了。
    因为要把整个程序分成N个子程序，用PHP来对输入进行判断，
    然后选调用对把?

shijiang1130

那我撤退了。:wink:明个要上班了。

墨迹哥

回复 22# shijiang1130


    恩恩！可以的华留个联系方式！站内短信。。。

墨迹哥

回复 22# shijiang1130


    收到了，明天我发短信给你，今天太晚了。。
  

墨迹哥

回复 22# shijiang1130


    明天你上来就能看到新的问题。

    我发现Perl脚本能运行了，但是不能写入文件了。

  PHP代码：

1.     <?php
   
2.     #phpinfo();
   
3.         ob_start();
   
4.         $perl = new Perl();
   
5.         $perl->require('test.pl');
   
6.         $perl->test1();
   
7.         $perl->test2();
   
8.         $out = ob_get_contents();
   
9.         ob_end_clean();
   
10.         print "Perl: $out\n";
    
11.     ?>
    

复制代码

Perl代码：

1. #!/usr/bin/perl
   
2. 
   
3. sub test1(){
   
4.     open FILE,">1.txt";
   
5.     print FILE ('heedexxx');
   
6.     print "write\n";
   
7.     close(FILE);
   
8. }
   
9. sub test2(){
   
10.   open FILE,"<1.txt";
    
11.   while($line=<FILE>){
    
12.       print $line;
    
13.   }
    
14.   close(FILE);
    
15. }
    
16. 1;
    

复制代码

这个无比奇怪的事情。。读取很正常。。写入就悲剧了。。没有任何反应

墨迹哥

回复 22# shijiang1130


    折腾到现在 00：38分，终于成功了！除了滚屏实是时显示数据没有弄出来以外。。哈哈！linux权限问题搞得我蛋都碎了。。。

shijiang1130

回复 26# 墨迹哥


   

laputa73

我理解就是php加载了perl解释器,
是让你可以在php页面中使用perl脚本
看你的参数从哪里来.php的参数应该不是来自argv,而是页面form参数吧
如果php持有这个变量,直接传给perl就行了吧

具体到你的问题
你把test.pl写成一个函数,在php里面require 一下,不就可以了?

墨迹哥

回复 27# shijiang1130


    短信发你了。。昨晚太晚了，折腾完都累趴下了。。。

     这是高科技玩意阿！
  
    目前还有个问题，Perl在执行多线程脚本的时候，输出是滚屏的，那么在

    页面当中怎么实现实时显示数据，而不是等到程序结束再返回数据呢？

墨迹哥

回复 28# laputa73


    恩。这个已经实现了，我们两人一直在研究这个东西。。

    这个模块的作用估计就是像你所说的那样，调用Perl解析器来执行Perl脚本。

    在创建对象的过程当中，执行，并返回结果数据。

    而我执着的问题是，数据必须在结束以后才能返回来，那么跟直接用exec()执行有何区别？

    为什么不能实时把数据打印在页面当中呢？

    可能说的有点含糊，我说的实时就比如是多线程处理的时候，输出结果将是滚屏输出的情况，

    那么在页面当中怎么滚屏输出呢？

    现在实现的结果和exec()函数的执行结果完全一致，都是等到程序结束以后返回数据。

    而我需要实现的是：在执行的过程当中，不断的在页面当中返回数据。
  
    您有兴趣一起来研究研究不？。。  热烈欢迎的阿。。。