Question

我的Perl和Windows存在编码问题。在运行Perl的Windows 7（草莓5.16）和简单的TK GUI上，我需要打开文件和/或访问名称/路径中包含非英文字符的目录。对于打开文件我已经提出了这个似乎工作正常的解决方案：

#!/usr/bin/perl -w

use strict;
use warnings;
use Win32::Unicode::File;
use Encode;
use Tk;

my $mw = Tk::MainWindow->new;
my $tissue_but = $mw->Button(
    -text => 'Open file',
    -command =>  [ \&select_unicode_file ],
);
$tissue_but->grid( -row => 3, -column => 1 );
Tk::MainLoop();

sub select_unicode_file{
my $types = [ ['Txt', '.txt'],
          ['All Files',   '*'],];
my $input_file= $mw->getOpenFile(-filetypes => $types);
my $fh = Win32::Unicode::File->new;
if ($fh->open('<', $input_file)){
  while (my $line = $fh->readline()){
    print "\n$line\n";
  }
   close $fh;
}
 else{
  print "Couldn't open file: $!\n";
}
}

这会正确打开Поиск/Поиск.txt

等文件

我不能做的只是获取目录路径而不是处理它。我想我应该使用Win32 :: Unicode :: Dir，但我真的无法理解文档。

它应该是这样的：

#!/usr/bin/perl -w

use strict;
use warnings;
use Win32::Unicode::Dir;
use Encode;
use Tk;

my $mw = Tk::MainWindow->new;
my $tissue_but = $mw->Button(
    -text => 'Open file',
    -command =>  [ \&select_unicode_directory ],
);
$tissue_but->grid( -row => 3, -column => 1 );
Tk::MainLoop();

sub select_unicode_directory{
my $dir = $mw->chooseDirectory( );
my $wdir = Win32::Unicode::Dir->new;
my $dir = $wdir->open($dir) || die $wdir->error;
my $dir_complete = "$dir/a.txt";
open (MYFILE, $dir_complete );
    while (<MYFILE>) {
    chomp;
    print "$_\n";
}
close (MYFILE); 
}

Answer 1

在：

中存在逻辑错误

my $dir = $wdir->open($dir) || die $wdir->error;
my $dir_complete = "$dir/a.txt";

$wdir->open('path')返回一个对象，而不是字符串。你不能像路径一样使用它。但这不是最糟糕的。遗憾的是，似乎Tk实现还没有支持Unicode文件名（包括chooseDirectory）。我想你必须编写一个自定义目录选择器，但我不确定它是否可能。

这能够在ascii-chars文件夹中列出文件（和 - ＆gt; fetch可以列出utf-8文件），并在打开带有utf-8字符的文件夹时崩溃。嗯，公平地说，在打开??????时会崩溃。

use strict;
use warnings;
use Win32::Unicode::Dir;
use Win32::Unicode::Console;
use Encode;
use Tk;

my $mw = Tk::MainWindow->new;
my $tissue_but = $mw->Button(
    -text => 'Select dir',
    -command =>  [ \&select_unicode_directory ],
);
$tissue_but->grid( -row => 3, -column => 1 );
Tk::MainLoop();

sub select_unicode_directory {
    my $wdir = Win32::Unicode::Dir->new;
    my $selected = $mw->chooseDirectory(-parent =>$mw);
       # http://search.cpan.org/dist/Tk/pod/chooseDirectory.pod#CAVEATS
       $selected = encode("utf-8", $selected);
    print "selected: $selected\n";

    $wdir->open($selected) || die $wdir->error;

    print "\$mw->chooseDirectory:    $selected\n";
    print "\$wdir->open(\$selected): $wdir\n";


# CRASH HERE, presumably because winders can't handle '?' in a file (dir) name
    for ($wdir->fetch) {
# http://search.cpan.org/~xaicron/Win32-Unicode-0.38/lib/Win32/Unicode/Dir.pm
        next if /^\.{1,2}$/;
        my $path = "$selected/$_";
        if (file_type('f', $path)) { print "file: $path\n"; } 
        elsif (file_type('d', $path)) { print " dir: $path\n"; }
    }
    print "closing \n";
    $wdir->close || die $wdir->error;

}

示例输出（打开Поиск/）：

以下两个示例均使用：为MSWin32-x64-multi-thread构建的Strawberry Perl 5.12.3

selected: C:/cygwin/home/jaroslav/tmp/so/perl/open-file-tk/?????
$mw->chooseDirectory:    C:/cygwin/home/jaroslav/tmp/so/perl/open-file-tk/?????
$wdir->open($selected): Win32::Unicode::Dir=HASH(0x2e38158)
>>> perl crash <<<

示例输出（开放Поиск的父级）：

selected: C:/cygwin/home/jaroslav/tmp/so/perl/open-file-tk
$mw->chooseDirectory:    C:/cygwin/home/jaroslav/tmp/so/perl/open-file-tk
$wdir->open($selected): Win32::Unicode::Dir=HASH(0x2b92c10)
file: C:/cygwin/home/jaroslav/tmp/so/perl/open-file-tk/.select_uni_dir.pl.swp
file: C:/cygwin/home/jaroslav/tmp/so/perl/open-file-tk/o
file: C:/cygwin/home/jaroslav/tmp/so/perl/open-file-tk/o.dir
file: C:/cygwin/home/jaroslav/tmp/so/perl/open-file-tk/select_uni_dir.pl
file: C:/cygwin/home/jaroslav/tmp/so/perl/open-file-tk/select_uni_file.pl
 dir: C:/cygwin/home/jaroslav/tmp/so/perl/open-file-tk/Поиск

结论

Tk目录选择器返回?????而不是Поиск。在寻找在Tk中启用Unicode的方法时，我发现了这个：

http://search.cpan.org/dist/Tk/pod/UserGuide.pod#Perl/Tk_and_Unicode：

（...）不幸的是，Perl仍有一些地方无知 Unicode格式。其中一个地方是文件名。因此，文件选择器在Perl / Tk中不能正确处理文件名的编码。目前他们假设文件名采用iso-8859-1编码，至少在Unix系统上是这样。一旦Perl有文件名编码的概念，那么Perl / Tk也会实施这样的计划。

乍一看，你想要做的事情似乎是不可能的（除非你编写或查找自定义目录选择器）。实际上，这可能不是一个坏主意提交此错误，因为GUI 确实显示“Поиск”，因此错误在返回值中。

在Windows上处理Perl中的unicode目录和文件名

1 个答案:

示例输出（打开Поиск/）：

示例输出（开放Поиск的父级）：

结论