php - 在 PHP 中使用 proc_open 函数

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() 失败，您应该尽早失败。