關于目錄和文件名稱中有中文的問題

努力小伙

使用tk打開目錄和文件選擇窗口以便選定目錄和文件，當名稱中有中文時，程序運行遇到編碼格式的問題

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use utf8;
   
4. use File::Find;
   
5. use Tk;
   
6. 
   
7. my $mw = MainWindow->new;
   
8. my $dirname;  # select dirname
   
9. 
   
10. # contain directory items
    
11. my $resultLbox = $mw->Listbox->pack;
    
12. 
    
13. # select a directory
    
14. my $selectDirBt = $mw->Button(-text => 'select dir',
    
15.         -command => sub {&select_dir})->pack;
    
16. 
    
17. # display your select directory tree into listbox
    
18. my $displayResultBt = $mw->Button(-text => 'display dir',
    
19.         -command => sub {&display_result})->pack;
    
20. 
    
21. MainLoop;
    
22. 
    
23. # opening a window for selecting directory
    
24. sub select_dir{
    
25.         $dirname = $mw->chooseDirectory;
    
26. }
    
27. 
    
28. # putting directory tree to listbox
    
29. sub display_result{
    
30.         my @result;
    
31.         if ($dirname){
    
32.                 find(sub {push (@result, $File::Find::name)}, $dirname);
    
33.                 $resultLbox->insert('end', @result);
    
34.         }
    
35. }

復制代碼

點擊選擇目錄按鈕，選擇一個含有中文名字的路徑，然后點擊列出目錄按鈕，后臺報錯
error msg: Can't stat C:/Users/Administrator/Desktop/C語言: No such file or directory

修改程序，加入Encode模塊

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use utf8;
   
4. use Encode;
   
5. use File::Find;
   
6. use Tk;
   
7. 
   
8. my $mw = MainWindow->new;
   
9. my $dirname;  # select dirname
   
10. 
    
11. # contain directory items
    
12. my $resultLbox = $mw->Listbox->pack;
    
13. 
    
14. # select a directory
    
15. my $selectDirBt = $mw->Button(-text => 'select dir',
    
16.         -command => sub {&select_dir})->pack;
    
17. 
    
18. # display your select directory tree into listbox
    
19. my $displayResultBt = $mw->Button(-text => 'display dir',
    
20.         -command => sub {&display_result})->pack;
    
21. 
    
22. MainLoop;
    
23. 
    
24. # opening a window for selecting directory
    
25. sub select_dir{
    
26.         $dirname = $mw->chooseDirectory;
    
27. }
    
28. 
    
29. # putting directory tree to listbox
    
30. sub display_result{
    
31.         my @result;
    
32.         if ($dirname){
    
33.                 find(sub {push (@result, $File::Find::name)}, decode('utf8', $dirname));
    
34.                 $resultLbox->insert('end', @result);
    
35.         }
    
36. }
    

復制代碼

依然報錯
error msg: Can't stat C:/Users/Administrator/Desktop/C錕斤拷錕斤拷: No such file or directory

應該是編碼格式的問題，在使用選擇文件的時候，遇到的情況和這個類似

希望知道解決方法的朋友可以給我一些指導和建議，上面的代碼也可以拷貝測試。
謝謝！

zhlong8

回復 1# 努力小伙


剛調(diào)試快半個小時才發(fā)覺這是 Tcl 的 bug， chooseDirectory 返回的明明是 GBK 編碼的字符串而 tcl 卻把它當作 utf8 處理了，所以即使在 wish 下它也不能用。

先給個比較 dirty 的解決方法：

my @chrs = split //, $dirname;
my $dirname = pack 'C*', map ord($_), @chrs;

iamlimeng

如果在MS的平臺，樓主也可以考慮使用Win32::GUI，編碼問題比較容易解決。

用Perl搞GUI很頭大，Perl如果有一個全新的方便開發(fā)的GUI平臺就好了。

zhlong8

iamlimeng 發(fā)表于 2012-09-27 16:15
如果在MS的平臺，樓主也可以考慮使用Win32::GUI，編碼問題比較容易解決。

用Perl搞GUI很頭大，Perl如果有 ...

聽你推薦周末學了下這個模塊，之前上 CPAN 看我一直以為它是沒有文檔的自己下了源代碼才 make 出 html 文檔來。畫圖方面沒 tk 的 canvas 好用，不過性能很高，搞的我都忍不住寫了個 mario 的小 demo

努力小伙

感謝，通過這樣的方式確實可以讓tk返回的路徑名稱供File::Find使用。但是會引起另外的問題，插入到tk面板之前，不再次處理的話，顯示的中文變成亂碼了，希望還有別的方法來解決這個問題回復 2# zhlong8


   

努力小伙

thanks，這個模塊確實不錯的選擇，不過現(xiàn)在這個軟件的界面比較復雜一些，Tk更合適一點點，實在不行，我會放棄對中文的支持，把時間花在功能實現(xiàn)上回復 3# iamlimeng


   

zhlong8

努力小伙 發(fā)表于 2012-09-27 17:59
感謝，通過這樣的方式確實可以讓tk返回的路徑名稱供File::Find使用。但是會引起另外的問題，插入到tk面板之 ...

Tk 默認使用的系統(tǒng)編碼是 Latin-1 結(jié)果一個中文字就被當兩個 ascii 的擴展字符所以需要先設置下編碼。這里沒有 bug，是我系統(tǒng)中兩個 tcl/tk 搞混了。下面只寫下 tcl 代碼，因為我只有 Tkx 這個模塊。

encoding dirs "dir-with cp936.enc" #放有 cp936.enc 的文件夾，下一行會查找并加載這個文件
encoding system cp936

Tkx 中是這樣的, Tk 中不知道怎么寫。
Tkx::encoding_dirs("dir with cp936.enc");
Tkx::encoding_system('cp936');

那個 cp936.enc 模塊應該沒帶，發(fā)你一個 cp936.zip (50.55 KB, 下載次數(shù): 20)

2012-09-27 23:14 上傳

點擊文件名下載附件

iamlimeng

回復 4# zhlong8

Win32::GUI直接調(diào)用系統(tǒng)指令，性能肯定好，還有一大群Win32相關模塊可用，一般的應用基本能滿足了；用PDK打包后體積非常小，比用TK要小很多。文檔確實很少，除了模塊自帶的，很難找到更詳細的。沒有輔助開發(fā)工具，開發(fā)費時費力；寫簡單的界面玩玩可以，太復雜會累死人的。

若真的要跨平臺，高性能，易開發(fā)，可以考慮用GTK+，各方面都不錯。

至于TK，它就是一頭老牛！

努力小伙

謝謝，這個東西我還不會用，沒有找到如何讓Tk加載該編碼文件的方法，期待您能找到少折騰更給力的解決辦法回復 7# zhlong8


   

zhlong8

努力小伙 發(fā)表于 2012-09-28 15:16
謝謝，這個東西我還不會用，沒有找到如何讓Tk加載該編碼文件的方法，期待您能找到少折騰更給力的解決辦法回 ...

沒了，就是那個模塊默認設置不是中文 windows，已經(jīng)是最簡。