use Win32::Unicode::File; # Some code left out.... $fname = $mw -> getOpenFile(-filetypes=>$types); my $fh = Win32::Unicode::File->new; $fh->open('<',$fname);
getOpenFile例程来自Tk.现在由于某种原因,Win32 :: Unicode :: File有一些我不能忍受的不幸副作用(它吃掉了我的记忆,见“Out of memory” with simple Win32::Unicode::File readline loop and Strawberry Perl).现在如果我尝试在没有Win32 :: Unicode :: File接口的情况下打开文件,我会找不到找到的文件.原因是路径被错误地解释了.我已经尝试根据Perl: managing path encodings on Windows转换路径,由于某种原因这不起作用.我该怎么解决这个问题?我尝试过以下方法:
use Encode; # Some code left out.... $fname = $mw -> getOpenFile(-filetypes=>$types); my $fh; open($fh,'<',encode("utf8",$fname,Encode::FB_CROAK));
它不起作用.有任何想法吗?
如果我不清楚,请原谅我.
亲切的问候,
迈克尔
解决方法
encode("utf8"
Perl将使用标准的C库IO函数来打开文件,在Windows上,文件名本身是Unicode(幕后的UTF-16),这意味着库必须将面向字节的接口中的文件名解释为特定的编码.
这是问题所在:选择的编码绝不是UTF-8或任何其他UTF.它是特定于语言环境的默认编码,已知(误导性地)为ANSI代码页.在西部Windows安装上是cp-1252.通常,您可以通过调用Win32 :: Codepage :: get_encoding来了解它是什么.
因此,通过将字符串转换为该编码,只要文件路径中的所有字符都在ANSI代码页中,就可以使用本机文件支持来访问它.对于西方机器上的丹麦人来说还可以.对于中文机器上的丹麦语,反之亦然,您将始终收到文件未找到的错误.
因此,如果你想在Windows上支持所有Unicode字符的文件名,你别无选择,只能使用Win32 API,就像Win32 :: Unicode :: File那样.这不是Perl独有的;没有明确支持Unicode文件名的其他语言也有完全相同的问题.