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