解决Perl TK 中文输入，操作问题

写一个tk测试玩意，读取用户输入，判断是否为目录。

代码如下：

#!perl -wuse Tk;use strict;use Encode; my $mw = MainWindow->new;$mw->geometry("300x200");$mw->title("Entry Test");my $top_frame = $mw->Frame(-background => "white")->pack(-side => "top");my $copy_entry = $top_frame->Entry(-background=>'green',-foreground=>'white')->pack(-side=>'top');my $button1 = $top_frame->Button(-text => "ls command", -command => /&button1_sub)->pack(-side=>'left');my $button2 = $top_frame->Button(-text => "dir command", -command => /&button2_sub)->pack(-side=>'right');my $right_frame = $mw->Frame(-background => "white")->pack(-side => "bottom");my $paste_text = $right_frame->Text(-background => "white",-foreground => "black")->pack(-side => "top");MainLoop;sub button1_sub(){my $copied_text = $copy_entry->get();$paste_text->insert("end", $copied_text);}sub button2_sub(){#$dat="测试文本"; my $copied_text = $copy_entry->get();print "$copied_text check/n";my $str=encode("gb2312",$copied_text); print "$str check/n";if(-d $str){my @Files = `dir $str`;print @Files;$paste_text->insert("end",@Files);}else{print "$str is not dir/n";}}

 

效果如下 ：

 

代码 my $str=encode("gb2312",$copied_text);  将utf8流转为中文的，进行操作（目录判断，或者输出）

 

 

 

utf8编码字串 --(作为字节流)--> perl不知道它是什么编码 ---> decode ('utf8',$foo) ---> perl知道他是utf8编码了,并将其转换为对应的unicode(两个字节)来操作(但实际存储的时候仍是utf8编码)

之所以会出现 Wide character in print at 2.pl line 19. 这样的结果,是因为perl知道你输出的变量字符串是utf8编码的多字节字符,你应该通过encode函数将该变量转换成字节流,这样perl就不会出现这个警告

综上,可以知道,perl对待外来的数据一律当作字节流处理,通过 decode 函数可以告诉 perl 当前字节流是什么编码,这时 perl 就会把他按照原来对应的编码方式内部解码为 unicode 来操作(此时这串字节流已经被perl当作是有一定意义的unicode字符串来理解了),当你要将操作完的字符串输出的时候,应该将其用encode函数按照相应的编码方式打包成字节流再输出.