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

hanling

　　有的时候我们会需要处理到文件的一些属性，比如说只读、隐藏之类的，
　　我这里大概说下在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