将环境变量从Perl传递到TCL

Question

我是Perl和Tcl的新手。我正在尝试将变量从Perl脚本传递到Tcl脚本。我将变量声明为环境变量并尝试通过。但是没有结果。请在下面找到代码：

Perl端：

 $ENV{'output_directory_final'} = "./$Image_name/$Date_release/final";

Tcl侧：

 set out_path ${output_directory_final};

但是，这不起作用。任何人都可以提出其他想法吗？

Answer 1

通过特殊分配，Tcl中的全局数组env包含该过程的环境变量的值。就您而言，请尝试以下操作：

set out_path $env(output_directory_final)

请注意，如果您位于proc内，则必须使用global env命令才能对变量进行本地访问。