我想使用Perl来读取模块Tcl::pTk
链接到的Tcl版本。我发现以下哪个工作正常
use strict;
use warnings;
use Tcl::pTk;
my $int = new Tcl::pTk;
$int->Eval(<<'EOS');
# pure-tcl code to create widgets (e.g. generated by some GUI builder)
text .e
## http://wiki.tcl.tk/1626#tk_version
.e insert end "tcl_version $tcl_version\n"
.e insert end "tcl_patchLevel $tcl_patchLevel\n"
.e insert end "tk_version $tk_version\n"
.e insert end "tk_patchLevel $tk_patchLevel\n"
.e insert end "tk_library $tk_library\n"
pack .e
EOS
my $e = $int->widget('.e'); # get .e entry into play
$int->MainLoop;
这会在GUI中显示值,但我想在脚本的其他部分使用$tcl_version
。在这个我失败了,因为$tcl_version
似乎不存在。我不需要GUI部分,只需要标量的值。
应该尝试最简单的方法:
my tcl_version = $int->Eval('info tclversion');
或者等同于Tcl方面:
my tcl_version = $int->Eval('set tcl_version');
所有Tcl命令都会产生一个结果,因此应该反映在这里。此外,大多数情况下,您最好获得版本报告的补丁级别;语言版本仅适用于粗略功能,而不是系统状态报告等详细信息(例如,您需要错误报告的补丁号)。
我已经在Tcl :: pTk,$int->tclVersion
和$int->tclPatchlevel
中发现了无证方法,它们分别相当于$int->Eval('info tclversion')
和$int->Eval('info patchlevel')
。
它们已在Tcl :: pTk内部使用。我不打算删除这些,但也不知道长期保留它们或使它们“公开”/记录是否是一个好主意,所以坚持现有的答案方法可能更好。 (Tcl :: Tk,Tcl :: pTk所基于的,没有这些方法。)