快速提问。
如何在 tcl 中调用 perl 脚本(使用参数)并收集输出并将其存储在变量中,稍后将在 IRC 上打印输出(使用 eggdrop)。
谢谢!=)
快速提问。
如何在 tcl 中调用 perl 脚本(使用参数)并收集输出并将其存储在变量中,稍后将在 IRC 上打印输出(使用 eggdrop)。
谢谢!=)
简单地:set perl_output [exec perl -lane {perl_script(goes => $here)} file]
通常在 Tcl 中,您会使用 exec 或 open 之类的东西来执行此操作。请参阅有关 exec 的文档:http ://www.tcl.tk/man/tcl8.5/TclCmd/exec.htm并打开:http://www.tcl.tk/man/tcl8.5/TclCmd/open。 htm
如果您不想执行外部 perl 解释器,您可以获取 tclperl 包并内联运行它,也可能更快:http://jfontain.free.fr/tclperl.htm ( 请参阅此链接以获取来源:http ://jfontain.free.fr/tclperl-3.2.tar.bz2 )