Perl Tk里面的控件如何显示中文

redwyz

如题, 需要用到什么模块吗?

yjh777

原帖由 redwyz 于 2008-1-3 11:21 发表
如题, 需要用到什么模块吗?

上周才遇到的问题

use encoding("gb2312");
或========================
Encode::decode("gb2312", $var)
Encode::encode("gb2312", $var)

yjh777

但是字体，字号怎么改就不知道了，默认的字太小很不好看

1. #!perl
   
2. use Tk;
   
3. use strict;
   
4. use Encode;
   
5. #use encoding("gb2312");
   
6. #BEGIN {
   
7. #  if ($^O eq 'MSWin32') {
   
8. #    require Win32::Console;
   
9. #    Win32::Console::Free( );
   
10. #  }
    
11. #}
    
12. 
    
13. my $owner_dbfile;
    
14. my $log_file;
    
15. my $owner_dbfile_v;
    
16. my $log_file_v;
    
17. 
    
18. my $mw = MainWindow->new();
    
19. $mw->geometry("800x250+400+450");
    
20. $mw->title('OwnChk');
    
21. 
    
22. my $selfile1 = $mw->Button(-text => decode("gb2312", '选择owner_db文件'),
    
23.                            -command => \&open_file1)->pack;
    
24. $mw->Label(-textvariable => \$owner_dbfile_v)->pack;
    
25. 
    
26. my $selfile2 = $mw->Button(-text => decode("gb2312" ,'选择clearcase log文件'),
    
27.                            -command => \&open_file2)->pack;
    
28. $mw->Label(-textvariable => \$log_file_v)->pack;
    
29. 
    
30. my $exit = $mw->Button(-text => 'run check',
    
31.                        -command => [$mw => 'destroy']);
    
32. $exit->pack;
    
33. 
    
34. my $types1 = [ ['excel files', '.xls'],
    
35.               ['All Files', '*'],];
    
36. my $types2 = [ ['excel files', '.txt'],
    
37.               ['All Files', '*'],];
    
38. MainLoop;
    
39. 
    
40. sub open_file1 {
    
41.   $owner_dbfile_v = $mw->getOpenFile(-filetypes => $types1);
    
42.   print "You chose to open '$owner_dbfile_v'\n" if $owner_dbfile_v;
    
43.   $owner_dbfile = encode("gb2312", $owner_dbfile_v);
    
44.   print "You chose to open '$owner_dbfile'\n" if $owner_dbfile;
    
45. }
    
46. 
    
47. sub open_file2 {
    
48.   $log_file_v = $mw->getOpenFile(-filetypes => $types2);
    
49.   print "You chose to open '$log_file_v'\n" if $log_file_v;
    
50.   $log_file = encode("gb2312", $log_file_v);
    
51.   print "You chose to open '$log_file'\n" if $log_file;
    
52. }
    
53. 
    

复制代码

redwyz

多谢