perl 中文编码

copper

请问斑竹：

如何实现perl/tk 中文显示，" \x{XXXX} " 这个编码是如何算出来的，可以举例说明一下吗？

copper

怎么没人应？？？

copper

还是自己搞定了！

c:/perl.jpg

mizuno

以下是引用copper在2005-5-9 22:19:34的发言：

请问斑竹：

如何实现perl/tk 中文显示，" \x{XXXX} " 这个编码是如何算出来的，可以举例说明一下吗？

简体中文没玩过

但我在台湾繁体中文可用

use encoding 'big5', STDIN => 'big5', STDOUT => 'big5';

一般我不会去指定这一行，Active Perl5.8.4以上版本对中文显示(UTF8)有一些BUG还未修正，正在跟他们RD研究中，目前我都用5.8.3来使用中文，此为RD建议的稳定版，我不用其他版本!!

另外\x{XXXX}这个意思在perl中称为Reference(参照)，透过参照找寻记忆体位置，我不懂为何你要去指定这个参照,虽然这样较快(看不太出来)，但是记忆体不会被释放.........

抱歉!!不是没回，看看我回信的时间，因为我刚到家!!

祝好运!!

copper

谢谢斑竹的回复！

我目前使用的是5.8.6版本的，使用中文简体的方法：

use encoding 'euc_cn' ;

另外请教一下：

我要从gui窗体的每种widget取到变量的方法分别是怎样的？

例如：

要取得文本框中的输入内容

$text = $row01->Entry(-bg=>$clr3,-font=>$font1 )->pack(-side,right,,-fill=>'x',-expand=>1);

取到的变量方法： $var = $text->get( ) ;

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

^_^ ！别的我就不知道了，盼请斑竹回复，谢谢！！！

mizuno

以下是引用copper在2005-5-11 10:50:41的发言：

谢谢斑竹的回复！

我目前使用的是5.8.6版本的，使用中文简体的方法：

use encoding 'euc_cn' ;

另外请教一下：

我要从gui窗体的每种widget取到变量的方法分别是怎样的？

例如：

要取得文本框中的输入内容

$text = $row01->Entry(-bg=>$clr3,-font=>$font1 )->pack(-side,right,,-fill=>'x',-expand=>1);

取到的变量方法： $var = $text->get( ) ;

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

^_^ ！别的我就不知道了，盼请斑竹回复，谢谢！！！

举个例子你看看!!

$info2=$f->Entry(-textvariable=>\$txt,-show=>'*', -font=>"{Times New Roman} 18 {normal}", -cursor=>'left_side',-insertbackground=>'green')->pack(-side=>'left',-fill=>'x');

改用-textvariable即可直接得到$txt的变数值

或更严谨点可用$asics=$info2->get(); [em05]

copper

[此贴子已经被作者于2005-5-13 21:35:21编辑过]

justwin

请教mizuno版主:

我已建好genesis的form.可是scripts要如何写呢?可不可以贴一个form的scripts上来呢?

谢谢您.