Perl获取和修改文件属性

use Win32::File;

$name="Test.txt";
$attr=0;

Win32::File::GetAttributes($name,$attr) or die "Can't get attributes for $name.";

print "File attributes:$attr\n";

if($attr & READONLY)
{
	print "$name is read only.\n";
}

Win32::File::SetAttributes($name,ARCHIVE|READONLY);