tcl脚本运行perl代码并输出结果？

Question

我需要通过tcl脚本运行perl脚本，但tcl中的exec命令不会生成perl脚本的结果。

tcl脚本（test.tcl）有以下行

exec perl test.pl

perl script test.pl有以下几行。

use strict;
use warnings;
print "Have a nice day!!!";

我通过cmd窗口运行tcl为＆＃34; tclsh test.tcl＆＃34;。没有错误也没有输出。为什么会这样呢???

Answer 1

exec命令将返回程序的输出，您必须通过将其保存到变量中来捕获它，或者使用puts直接打印它。

set result [exec perl test.pl]
puts $result