php - 如何将字符串从php传递到tcl并执行脚本

Question

我想从我的 php 传递字符串

<?php
str1="string to pass"
#not sure about passthru
?>

还有我的tcl剧本

set new [exec $str1]#str1 from php
puts $new

这可能吗？请让我知道我坚持这个

score 1 · Accepted Answer

有可能的。

测试.php

<?php
$str1="Stackoverflow!!!";
$cmd = "tclsh mycode.tcl $str1";
$output = shell_exec($cmd);
echo $output;
?>

我的代码.tcl

set command_line_arg [lindex $argv 0]
puts $command_line_arg

score 1 · Accepted Answer

最简单的机制是将 Tcl 脚本作为一个子进程运行，该子进程运行一个接收脚本（您可能会将其放在与 PHP 代码相同的目录中，或者放在其他位置），它会解码它传递的参数并且确实你对他们的要求。

因此，在 PHP 方面，您可能会这样做（注意这里的重要用途escapeshellarg！我建议使用带空格的字符串作为测试用例，以确定您的代码是否引用正确）：

<?php
$str1 = "Stack Overflow!!!";
$cmd = "tclsh mycode.tcl " . escapeshellarg($str1);
$output = shell_exec($cmd);
echo $output;
echo $output;
?>

在 Tcl 方面，参数（在脚本名称之后）被放在全局argv变量的列表中。该脚本可以通过任意数量的列表操作将它们拉出来。这是一种方法，使用lindex：

set msg [lindex $argv 0]
# do something with the value from the argument
puts "Hello to '$msg' from a Tcl script running inside PHP."

另一种方法是使用lassign：

lassign $argv msg
puts "Hello to '$msg' from a Tcl script running inside PHP."

但是请注意（如果您使用 Tclexec调用子程序）Tcl 会有效地自动为您引用参数。（实际上，出于技术原因，它确实在 Windows 上这样做了。）Tcl 不需要类似的东西，escapeshellarg因为它将参数作为字符串序列，而不是单个字符串，因此对正在发生的事情了解更多。

传递值的其他选项是通过环境变量、管道、文件内容和套接字。（或者更奇特的东西。）进程间通信的一般主题在两种语言中都可能变得非常复杂，并且涉及很多权衡；你需要非常确定你想要做什么才能明智地选择一个选项。

2 回答 2