- 論壇徽章:
- 12
|
環(huán)境 XP/WIN7 Active Perl v5.16
編輯整理：523066680
以下主要討論用 ActivePerl 自帶的模塊的處理方法，更省心的辦法請(qǐng)參考2樓
由于常見(jiàn)的那些文件操作函數(shù)都不支持，為了達(dá)到目的，需要各種方法配合。
以下腳本代碼均保存為 utf8 編碼格式。
文件的建立
模塊: WIN32
use Win32;
use utf8;
#接受unicode傳參
Win32::CreateFile("W32CreateFile・測(cè)試"); |
特性： 成功時(shí)返回true，但不返回文件句柄
Creates the FILE and returns a true value on success.
Check $^E on failure for extended error information.
模塊：Win32API::File
函數(shù)：$hObject= CreateFileW( $swPath, $uAccess, $uShare, $pSecAttr, $uCreate, $uFlags, $hModel )
$hObject 即為文件句柄(對(duì)象)
注意事項(xiàng)：傳入的文件路徑的編碼格式為：UTF16-LE ，必須以\x00結(jié)尾。
示例代碼：
use Win32API::File qw(:ALL);
use utf8;
use Encode;
$str="文tes・t.txt\x00";
$hobject=CreateFileW(encode('UTF16-LE', $str), GENERIC_WRITE, 0, [], OPEN_ALWAYS,0,0); |
目錄的建立
模塊：Win32
use Win32;
use utf8;
Win32::CreateDirectory("Dir・測(cè)試"); |
枚舉文件
在遇到unicode字符的時(shí)候，F(xiàn)ile::Find模塊 以及 IO::Dir 模塊都只能輸出文件短名。
但是可以通過(guò) `CMD /U Dir /s /b` 的方式獲取，/U參數(shù)允許命令行以Unicode形式輸出。
參考文章
[how to read unicode filename](http://www.perlmonks.org/?node_id=536223)
復(fù)制某個(gè)文件夾內(nèi)的文件
模塊：Win32API::File
如果先獲取文件的短名，然后再?gòu)?fù)制，目標(biāo)文件名也會(huì)變成短名。
可先用 cmd /U 模式獲取文件列表，然后CopyFileW進(jìn)行復(fù)制：
use Win32API::File qw':ALL';
use Encode;
use utf8;
my $src=encode('gbk','.\\測(cè)試目錄');
my $dst='.\\Target';
#該目錄只有一層，/s開(kāi)關(guān)是為了列出完整的路徑
my $all=`cmd /U /C dir /s /b \"$src\"`;
my $fn;
for (split(/\x0d\x00\x0a\x00/, $all))
{
$fn = encode('gbk', decode('utf16-le',$_))."\n";
@xrr = split(/\x5c\x00/, $_);
CopyFileW(
$_ ."\x00",
encode('utf-16le', decode('utf8', "$dst\\")).$xrr[$#xrr]."\x00",
1
);
print "$^E\n" if ($^E);
} |
這里有幾個(gè)注意事項(xiàng)細(xì)節(jié)一、
正確地使用 split $all 截?cái)鄒tf-16le字符段落，分隔符應(yīng)為0d 00 0a 00
細(xì)節(jié)二、
如果用 basename() 分割路徑，同樣會(huì)遇到00被忽略的問(wèn)題，'\\' 的U16LE
編碼是5C 00，但是basename 只按5C截?cái)�，剩下�?0造成了處理亂碼。
測(cè)試basename的第二個(gè)參數(shù)設(shè)置為 "\x5c\x00" 并不能解決這個(gè)問(wèn)題
解決方法
手工去掉開(kāi)頭處的 \x00
或者：
@xrr=split(/\x5c\x00/, $_);
細(xì)節(jié)三、
CopyFileW復(fù)制文件時(shí)，要在末尾加\x00作為字符串終止符，否則各種問(wèn)題=_=
判斷文件是否存在
方法一：先轉(zhuǎn)為短名再判斷，不做贅述
方法二：渣方法，用CreateFileW測(cè)試建立同名文件，看是否有沖突
重命名
模塊：Win32API::File
MoveFileW(
encode('utf-16le', decode('utf8',$F))."\x00",
encode('utf-16le', decode('utf8',$newname))."\x00"
); |
獲取文件的日期信息
普通文件名的情況含有Unicode字符的文件名的情況
[How to stat a file with a Unicode (UTF16-LE) filename in Windows?](fhttp://www.perlmonks.org/?node_id=741797)
其中的方法是通過(guò)createfileW 獲取文件句柄，然后用OsFHandleOpen獲取通用的文件句柄對(duì)象，并傳入state
（感覺(jué)特別繞）
另一種就是先轉(zhuǎn)為短名再獲取日期，但是這種方法在處理文件量大的時(shí)候，效率非常低。
前面 perlmonks 中的方法效率要高得多
use utf8;
use Encode;
use Win32;
$filename='D:\測(cè)試目錄\董貞 ・ 01.劍如虹.[貞江湖].mp3';
$filename=Win32::GetShortPathName($filename);
my $mtime = (stat $filename)[9];
my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($mtime);
$year+=1900;
$mon+=1;
print "$year-$mon-$mday\n"; |
[Finished in 0.4s] |
Perl, Win32, Unicode, Perl, Win32, Unicode, Perl, Win32, Unicode, Perl, Win32, Unicode, Perl, Win32, Unicode, Perl, Win32, Unicode, Perl, Win32, U3809, Win32,
評(píng)分
-
查看全部評(píng)分
|
免費(fèi)注冊(cè)
念章.png "2016科比退役紀(jì)念章
日期:2018-03-16 10:24:05")
發(fā)表于 2017-05-16 14:58
