perl包裝telnet，實(shí)現(xiàn)gbk-utf8轉(zhuǎn)換

yvmu

之前用telnet登錄mud的時(shí)候，發(fā)現(xiàn)在unicode環(huán)境下telnet連接遠(yuǎn)端的mud服務(wù)器出現(xiàn)亂碼，mud服務(wù)器為gbk編碼。
后來(lái)嘗試用支持gbk編碼的虛擬終端登錄，這下顯示正常了，但是輸入法無(wú)法輸入gbk編碼的漢字，輸進(jìn)去的都是亂碼。
所以想能否用perl實(shí)現(xiàn)一個(gè)層，用它強(qiáng)大的utf8模塊自如的在unicode環(huán)境下的shell與telnet傳輸過(guò)來(lái)的gbk編碼之間進(jìn)行轉(zhuǎn)換。
telnet是實(shí)時(shí)傳輸文字，這方面的知識(shí)比較欠缺，所以不知如何下手，請(qǐng)高手們多多提意見(jiàn)，謝謝了～

[ 本帖最后由 yvmu 于 2008-8-25 14:18 編輯 ]

9119111

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

[ 本帖最后由 9119111 于 2008-8-20 16:50 編輯 ]

yvmu

這個(gè)容易理解，問(wèn)題是如何取得telnet里的數(shù)據(jù)？

[ 本帖最后由 yvmu 于 2008-8-25 14:19 編輯 ]

yvmu

在研究Net::Telnet與Expect，不知道哪個(gè)模塊能解決這個(gè)問(wèn)題……

[ 本帖最后由 yvmu 于 2008-8-21 15:23 編輯 ]

yvmu

該如何取得telnet自動(dòng)回傳的語(yǔ)句呢？不是由自己鍵入命令觸發(fā)的。

sleetdrop

先把當(dāng)前終端的locale設(shè)置成zh_CN.gbk
然后再把你的終端如konsole gnome-terminal的編碼選擇成zh_CN.gbk
接下來(lái)telnet你的服務(wù)器就可以了。

0vk0

建立判斷語(yǔ)句,檢查用戶是否輸入了我們事先設(shè)置的離開(kāi)語(yǔ)句$ends即886,如果是我們就斷開(kāi)連接,如果不是我們將客戶的輸入通過(guò)管道傳給管道cmdline,并從管道的另外一段得到命令的輸出

forlorngenius

yvmu

原帖由 sleetdrop 于 2008-8-25 17:32 發(fā)表
先把當(dāng)前終端的locale設(shè)置成zh_CN.gbk
然后再把你的終端如konsole gnome-terminal的編碼選擇成zh_CN.gbk
接下來(lái)telnet你的服務(wù)器就可以了。

我的桌面環(huán)境不是Gnome也不是KDE，所以我選擇的虛擬終端是rxvt。

謝謝你的建議，gnome-terminal不錯(cuò)，我以前用過(guò)。

yvmu

原帖由 0vk0 于 2008-8-26 10:09 發(fā)表
建立判斷語(yǔ)句,檢查用戶是否輸入了我們事先設(shè)置的離開(kāi)語(yǔ)句$ends即886,如果是我們就斷開(kāi)連接,如果不是我們將客戶的輸入通過(guò)管道傳給管道cmdline,并從管道的另外一段得到命令的輸出

請(qǐng)問(wèn)是用管道打開(kāi)telnet么？能更詳細(xì)的說(shuō)明一下么，恕小弟愚昧。