PHPでproc_open関数を使用する

Question

PHPからTCLスクリプトを実行しようとしています。私は通信のためにPHPのproc_openを使用しています。しかし、私はtclスクリプトから結果を得ることができません。 誰かがコードを読んで、どこが間違っているのか教えてもらえますか？あなたがアプリケーション（fwrite($pipes[0], "source sum.tcl\n")）に改行を渡していない

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（）が失敗した場合は、早めに失敗するはずです。