|
有的时候我们会需要处理到文件的一些属性,比如说只读、隐藏之类的,
我这里大概说下在WIN32下如何取得和修改文件的属性。
需要: use Win32::File;
然后使用如下方法:
my $set;
#取得文件的属性
Win32::File::GetAttributes($name, $set);
#设置文件的属性
Win32::File::SetAttributes($name, ARCHIVE);
在perldoc里,可供设置的属性如下:
ARCHIVE 存档文件 32 COMPRESSED 压缩文件 2048 DIRECTORY 目录文件 16 HIDDEN 隐藏文件 2 NORMAL 正常文件 128 OFFLINE 脱机文件 4096 READONLY 只读文件 1 SYSTEM 系统文件 4 TEMPORARY 临时文件 256 为了方面理解,我在程序里把每个选项对应的数值都打印出来附在后面了,每个选项都是只占一位的,因此我们可以用或|来同时应用多个属性,如下: Win32::File::SetAttributes($name, ARCHIVE|HIDDEN);这样你就发现你的文件同时是隐藏和存档文件了.^_^ 转载请保留以下信息:
作者(Author):smilelance
时间( Time ):2006.08.11出处( From ):http://blog.csdn.net/smilelance |
|
|