12 3 4 5 / 5 页下一页

论坛徽章:: 3

电梯直达

1楼 [收藏(0)] [报告]

发表于 2013-04-06 18:59 |只看该作者 |正序浏览

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

代码No1如下：

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

复制代码

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

<?php
//启动对象
ob_start();
//创建Perl对象
$perl = new Perl();
//执行Perl脚本
$perl->require("test.pl");
//接收数据
$out = ob_get_contents();
//清空缓存
ob_end_clean();
//打印输出
print "Perl: $out";
?>

复制代码

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

我说说我想要的效果把：

例如：

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

复制代码

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

文库|博客

墨迹哥

富足长乐

论坛徽章:: 3

41楼 [报告]

发表于 2013-05-15 00:19 |只看该作者

回复 11# shijiang1130

没事了。。估计官方的包坏了。我换个就好了

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

墨迹哥

富足长乐

论坛徽章:: 3

40楼 [报告]

发表于 2013-05-15 00:13 |只看该作者

回复 6# shijiang1130

我在ubuntu12.04 server 版遇到这个跟你一样的错误，你这个错误不是版本的问题，你最后怎么解决的？

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

墨迹哥

富足长乐

论坛徽章:: 3

39楼 [报告]

发表于 2013-04-07 14:54 |只看该作者

回复 37# laputa73

我骚微修改了下～不过貌似没想通。。。如果多线程在返回的话，貌似得把程序全部拆开，但是重点是返回值处理的问题。。

<?php
header("Cache-Control: no-cache, must-revalidate");
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
flush();
?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Comet php backend</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</head>
<body>
<?php
//ob_start();
while(1){
ob_start();
$perl =new Perl();
$perl->require('test.pl');
$perl->test1();
$out=ob_get_contents();
ob_flush();
flush();
ob_end_clean();
print "$out\n";
}
// print "$out2\n";
// while(1) {
// echo time().'<br>';
// ob_flush();
// flush(); // used to send the echoed data to the client
// sleep(1); // a little break to unload the server CPU
// }
?>
</body>
</html>

复制代码

Perl:

#!/usr/bin/perl
sub test1{
$at='1';
return $at;
}
sub test2{
return "false";
}
1;

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

墨迹哥

富足长乐

论坛徽章:: 3

38楼 [报告]

发表于 2013-04-07 13:54 |只看该作者

回复 37# laputa73

没错。就是要这效果！哈哈！我想下怎么融入PERL

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

laputa73

巨富豪门

论坛徽章:: 42

37楼 [报告]

发表于 2013-04-07 13:21 |只看该作者

本帖最后由 laputa73 于 2013-04-07 14:06 编辑

给你一个php实时刷新的例子, 你把里面的循环输出部分换成perl看看.
补充set_time_limit(0);不然默认20s后php就超时了.

<?php
header("Cache-Control: no-cache, must-revalidate");
header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");
flush();
?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Comet php backend</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</head>
<body>
<?php
set_time_limit(0);
while(1) {
echo time().'<br>';
ob_flush();
flush(); // used to send the echoed data to the client
sleep(1); // a little break to unload the server CPU
}
?>
</body>
</html>