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

Question

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

tcl 脚本 (test.tcl) 有以下行

exec perl test.pl

perl 脚本 test.pl 有以下几行。

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

我通过 cmd 窗口以“tclsh test.tcl”的形式运行 tcl。没有错误也没有输出。为什么会这样？？？

Answer 1

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

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