如何使用Perl在Windows中创建unicode文件名

发布时间：2020-12-15 21:15:47 所属栏目：大数据来源：网络整理

导读：我有以下代码 use utf8;open($file,':encoding(UTF-8)',"さっちゃん.txt") or die $!;print $file "さっちゃん"; 但是我得到的文件名是???,?,?.,.txt 我想知道是否有一种方法可以让我的工作正如我所期望的那样(意思是我有一个unicode文件名),这不需要使用Win

我有以下代码

use utf8;
open($file,'>:encoding(UTF-8)',"さっちゃん.txt") or die $!;
print $file "さっちゃん";

但是我得到的文件名是???,?,?.,.txt

我想知道是否有一种方法可以让我的工作正如我所期望的那样(意思是我有一个unicode文件名),这不需要使用Win32 :: API,Win32API :: *或移动到另一个平台并使用Samba共享来修改文件.

目的是确保我们没有任何需要加载的Win32特定模块(甚至是有条件的).

解决方法

Perl将文件名视为不透明的字节字符串.它们需要根据“语言环境”的编码(ANSI代码页)进行编码.

在Windows中,这通常是cp1252.它由GetACP系统调用返回. (前缀“cp”).但是,cp1252不支持日文字符.

Windows还提供“Unicode”又称“宽”接口,但Perl不提供使用内置*的访问权限.但是,您可以使用Win32API :: File的CreateFileW. IIRC,您还需要自己编码文件名.如果是这样,您将使用UTF-16le作为编码.

* – Perl对Windows的支持在某些方面很糟糕.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!