如何从 php 执行 tcl 脚本？

Question

我需要从 PHP 执行 TCL 脚本。目前我正在使用以下代码

<?php 
echo passthru("tclsh83 Testcases/source.tcl ");
?>

这是有效的。但这会为每个调用创建一个 shell。如何打开 shell 并通过 TCL 脚本进行来回通信。任何指示将不胜感激。

问候， 米敦

Answer 1

如果您有大量数据要发送到 tcl 脚本，您可以使用 proc_open() 打开读写管道。然后，在 tcl 脚本中，使用 gets stdin varname 从 stdin 读取一行。

Answer 2

我知道了如何将值从 php 脚本传递到 TCL 脚本 passthru("tclsh83 Testcases/source.tcl $arg1 $arg2 "); // 命令行参数 有更好的方法来执行 TCL 脚本吗？谢谢，米图恩

那么这种方式有什么问题吗？如果您始终只传递 2 个参数并且它们来自受信任的来源，那么这是最好的方法。如果没有，您可以拥有一个参数数组，使用 escapeshellarg() 对它们进行转义，join() 它们并将结果放入命令字符串中。例如：

$params = array( /* <...> */ );
echo passthru('tclsh83 Testcases/source.tcl ' .
              join(' ', array_map('escapeshellarg', $params)));