http://search.cpan.org/~micb/Tcl-b2/Tcl.pm
Eval (STRING)
Evaluate script STRING in the interpreter.
If the script returns successfully (TCL_OK) then the
Perl return value corresponds to interp->result otherwise a
die exception is raised with the $@ variable corresponding
to interp->result. In each case, corresponds means that if
the method is called in scalar context then the
string interp->result is returned
but if the method is called in list context
then interp->result is split as a Tcl list and returned as a Perl list.
※ 引述《albertliao (~咖啡癮君子~)》之銘言：
: 小弟想要使用perl去執行tcl , 簡易程式如下:
: use Tcl;
: $interp = new Tcl;
: $interp->Eval('source c:/test.tcl');
: 雖然console有回應結果,但是卻無法get到它的結果, 因為我是要取得結果再作處理
: 不曉得是否有人知道該如何去得結果
: 謝謝
--
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 113.61.194.203