perl包装telnet,实现gbk-utf8转换

perl包装telnet,实现gbk-utf8转换

之前用telnet登录mud的时候,发现在unicode环境下telnet连接远端的mud服务器出现乱码,mud服务器为gbk编码。
后来尝试用支持gbk编码的虚拟终端登录,这下显示正常了,但是输入法无法输入gbk编码的汉字,输进去的都是乱码。
所以想能否用perl实现一个层,用它强大的utf8模块自如的在unicode环境下的shell与telnet传输过来的gbk编码之间进行转换。
telnet是实时传输文字,这方面的知识比较欠缺,所以不知如何下手,请高手们多多提意见,谢谢了~

use Text::Iconv;
  $converter = Text::Iconv->new("gb2312", "utf8");
  $converted = $converter->convert("$data");

这个容易理解,问题是如何取得telnet里的数据?

在研究Net::Telnet与Expect,不知道哪个模块能解决这个问题……

该如何取得telnet自动回传的语句呢?不是由自己键入命令触发的。
先把当前终端的locale设置成zh_CN.gbk
然后再把你的终端如konsole gnome-terminal的编码选择成zh_CN.gbk
接下来telnet你的服务器就可以了。
建立判断语句,检查用户是否输入了我们事先设置的离开语句$ends即886,如果是我们就断开连接,如果不是我们将客户的输入通过管道传给管道cmdline,并从管道的另外一段得到命令的输出


QUOTE:
原帖由 sleetdrop 于 2008-8-25 17:32 发表
先把当前终端的locale设置成zh_CN.gbk
然后再把你的终端如konsole gnome-terminal的编码选择成zh_CN.gbk
接下来telnet你的服务器就可以了。

我的桌面环境不是Gnome也不是KDE,所以我选择的虚拟终端是rxvt。

谢谢你的建议,gnome-terminal不错,我以前用过。


QUOTE:
原帖由 0vk0 于 2008-8-26 10:09 发表
建立判断语句,检查用户是否输入了我们事先设置的离开语句$ends即886,如果是我们就断开连接,如果不是我们将客户的输入通过管道传给管道cmdline,并从管道的另外一段得到命令的输出

请问是用管道打开telnet么?能更详细的说明一下么,恕小弟愚昧。