Perl取得和修改文件属性（WIN32系统）

        有的时候我们会需要处理到文件的一些属性，比如说只读、隐藏之类的，

我这里大概说下在WIN32下如何取得和修改文件的属性。

     需要： use Win32::File;

   然后使用如下方法：

   my $set;

#取得文件的属性
   Win32::File::GetAttributes($name, $set);

#设置文件的属性
   Win32::File::SetAttributes($name, ARCHIVE);

在perldoc里，可供设置的属性如下：

ARCHIVE 　存档文件　３２　　　　　　　

COMPRESSED 　压缩文件　２０４８

DIRECTORY 　目录文件　１６

HIDDEN 　　隐藏文件　２

NORMAL 　正常文件　１２８

OFFLINE 　脱机文件　４０９６

READONLY 　只读文件　１

SYSTEM 　系统文件　４

TEMPORARY 　临时文件　２５６

 

为了方面理解，我在程序里把每个选项对应的数值都打印出来附在后面了，

每个选项都是只占一位的，因此我们可以用或｜来同时应用多个属性，如下：

 

Win32::File::SetAttributes($name, ARCHIVE｜HIDDEN);

这样你就发现你的文件同时是隐藏和存档文件了．＾＿＾

 转载请保留以下信息：
作者（Author）:smilelance
时间（ Time ）:2006.08.11

出处（ From ）:http://blog.csdn.net/smilelance