我想结合

fread()和部分结果的串联($result.=fread())

您想等到tcl应用程序在一定时间内(假定这意味着最后一个命令结束)不向其stdout写入内容,然后将下一个命令/行发送到其stdin?

编辑:

似乎

就像你可以一次将所有的命令发送到tcl shell,并且一个接一个地对它们进行处理,也就是说,当完成前一个命令时,shell会读取下一个输入行/命令。我用脚本测试过这个。

incr a 1

after 1000

puts [concat [clock seconds] $a]

和

$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次并超时,则可能发生了错误。

编辑2:

让shell打印每个脚本之后可以扫描的内容。

// 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);

}

?>