2

我正在使用 proc_open 从 PHP 执行 TCL 脚本。

  1. 我首先打开 TCL shell 2）使用 fwrite 发送命令 3）我需要 fread 等待/阻塞，直到 fwrite 发送的命令完成并获取所有内容。命令可能需要一些时间才能完成。（我只能阅读 2 行，然后进入下一个循环）

有人可以指导我。

现在的代码是

<?php

$app = 'tclsh84';
$descriptorspec = array(
0 => array("pipe","r"),
1 => array("pipe","w"),
2 => array("file","C:/wamp/www/tcl/bin/g.txt","w")
) ;
$process = proc_open($app, $descriptorspec, $pipes);
if (is_resource($process)) 
{


for($i=0;$i<4;$i++)
{

 fwrite($pipes[0], 'source c:/wamp/www/tcl/bin/test.tcl'."\n");
$content= fread($pipes[1],8192)
print "$content";

}    
   fclose($pipes[0]);    

   fclose($pipes[1]);


   proc_close($process);
}
?>
4

2 回答 2

1

我正在考虑结合

您想等到 tcl 应用程序在一定时间内没有向其标准输出写入内容（假设这意味着最后一个命令的结束），然后将下一个命令/行发送到其标准输入？

编辑：
似乎您可以一次将所有命令发送到 tcl shell 并逐个处理它们，即当 shell 完成前一个输入行/命令时，它会读取下一个输入行/命令。我已经用脚本对此进行了测试。

incr a 1
after 1000
puts [concat [clock seconds] $a]

和

<?php
$app = 'c:/programme/tcl/bin/tclsh85.exe';
$descriptorspec = array(
  0 => array("pipe","r"),
  1 => array("pipe","w"),
  2 => array("file","C:/god.txt","w")
) ;
$process = proc_open($app, $descriptorspec, $pipes);
if (is_resource($process)) {
  fwrite($pipes[0], "set a 1\n");
  for($i=0;$i<4;$i++) {
    fwrite($pipes[0], "source c:/helloworld.tcl\n");
  }
  // when all scripts are done the shell shall exit
  fwrite($pipes[0], "exit\n");
  fclose($pipes[0]);

  do {
    $read=array($pipes[1]); $write=array(); $except=array($pipes[1]);
    // wait up to 1 second for new output of the tcl process
    $ready = stream_select($read, $write, $except, 1, 0);
    if ( $ready && $read /* is not empty */) {
      // get the partial output
      $r = fread($pipes[1], 2048);
      echo $r;
    }
    // is the process still running?
    $status = proc_get_status($process);
  } while($status['running']);
  fclose($pipes[1]);
  proc_close($process);
}
?>

您可能想要添加更多错误处理。例如，如果 stream_select() 超时返回 x 次，则可能出现问题。

edit2：
让 shell 在每个脚本之后打印一些您可以扫描的内容。

<?php
// something that's not in the "normal" output of the scripts
$id = 'done'. time();

$app = 'c:/programme/tcl/bin/tclsh85.exe';
$descriptorspec = array(
  0 => array("pipe","r"),
  1 => array("pipe","w"),
  2 => array("file","C:/god.txt","w")
) ;
$process = proc_open($app, $descriptorspec, $pipes);
if (is_resource($process)) {
  fwrite($pipes[0], "set a 1\n");
  for($i=0;$i<4;$i++) {
    $output = '';
    $continue = true;
    $cTimeout = 0;
    echo 'loop ', $i, "\n";
    fwrite($pipes[0], "source c:/helloworld.tcl\n");
    fwrite($pipes[0], "puts $id\n");
    echo "waiting for idle\n";
    do {
      $read=array($pipes[1]);
      $write=array();
      $except=array($pipes[1]);
      $ready = stream_select($read, $write, $except, 1, 0);
      if ( $ready && $read ) {
        $output .= fread($pipes[1], 2048);
        // if the delimiter id shows up in $output
        if ( false!==strpos($output, $id) ) {
            // the script is done
          $continue = false;
        }
      }
    } while($continue);
    echo 'loop ', $i, " finished\n";
  }
  proc_close($process);
}
?>
于 2009-08-25T08:25:19.260 回答
0

尝试：

$content = '';

while(!feof($pipes[1]))
{
    $content .= fread($pipes[1],8192);
}

那还要等吗？

于 2009-08-25T08:20:49.783 回答