Perl/TkFAQ-17.1有把Tcl/Tk转换成Perl/Tk的工具吗？

原文：

17.1 Is there a Tcl/Tk to perl/Tk translator?

Nick Ing-Simmons has written a (rather lengthy) tcl2perl script. It is distributed with the perl/Tk build kit. Please handle carefully! (translation: do not expect it to translate arbitrary tcl code accurately nor even into the most efficient perl/Tk equivalent. Do go over the converted script with care - and do not forget -w and use strict;.) Thanks Nick :-)

译文：

17.1 有把Tcl/Tk转换成Perl/Tk的工具吗？

Perl/Tk 的作者Nick Ing-Simmons曾经写过一个名为tcl2perl的脚本（相当长）。这个脚本跟随Perl/Tk包一同发布（译者注：不过我没找到……:(）。但是请慎用此工具，因为这里的转换并不能保证对任意的tcl代码都能转换的准确，而且也不能保证转换出来的Perl/Tk代码是最高效的。另外，提醒大家在使用前先仔细看一下转换后的代码，并且不要忘了加上-w和use strict;选项哟！（多谢Nick:-)）

注：在前面的帖子中，ChinaOnly曾经提供了一个tcl2perl脚本的下载：

http://www.perlchina.net/cgi-bin/gforum/gforum.cgi?post=7594#7594

感谢ChinaOnly同志！:P