Question

perl 显示中文

#!/usr/bin/perl –w
use Tk;
use Encode;
my $mw = MainWindow->new;
$mw->geometry("1000x500");
$title_name="IP质量";
$title_name=decode("utf8",$title_name);
$mw->title("$title_name");
$name="人才培养";
$name=decode("utf8",$name);
$mw->Label(-text=>$name)->pack();
MainLoop;
这是别人给我拷的一个pl代码文件，运行可以成功显示中文，但是我在新建一个pl文件，照抄这个代码，都不能成功显示中文，显示的是乱码，为什么？
一模一样的代码，就是文件名不同，别人拷过来的文件就成功运行，我的就不行？
下面一个是别人拷过来的，一个是我新建一个pl文件无知过来的，一样的代码，不一样的结果。。。Why？





Answer 1

你得把你的代码文件保存成UTF8格式。比如用Windows记事本的话，选文件->另存为，在弹出的对话框里有一个“编码”下拉框，从里面选UTF-8，然后保存。再执行就不会乱码了。