我想用Perl来读取该模块的Tcl版本
与…有关.我发现以下哪个工作正常
Tcl::pTk
与…有关.我发现以下哪个工作正常
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部分,只需要标量的值.