Question

我正在尝试从PHP执行TCL脚本。我使用PHP的proc_open进行通信。但是我无法从tcl脚本中获得结果。有人可以通过代码让我知道我哪里错了吗？

PHP代码

<?php
$app = 'tclsh84.exe';

$spec = array(array("pipe", "r"), array("pipe", "w"), array("pipe", "w"));

$process = proc_open($app, $spec, $pipes);

if (is_resource($process)) 
{

    fwrite($pipes[0], 'source sum.tcl ');
    fwrite($pipes[0], 'tclsh test.tcl ');
    fclose($pipes[0]);

  echo stream_get_contents($pipes[1]);
  fclose($pipes[1]);

 //   echo fread($pipes[1],1024).'<hr>';


   proc_close($process);
}
?>


//sum.tcl 
proc sum {arg1 arg2} {
    set x [expr {$arg1 + $arg2}];
    return $x
}

//test.tcl
puts " the sum is [sum 10 9 ] "

Answer 1

您没有将换行符传递给应用程序（fwrite($pipes[0], "source sum.tcl\n")），这可能是原因吗？否则，请务必检查函数调用的所有返回值。如果第一个fwrite（）失败，你应该尽早失败，例如。

在PHP中使用proc_open函数

1 个答案: