修改文件的只读属性

smilelance

UID: 3973
帖子: 103
积分: 236
在线时间: 14 小时

1^# smilelance 发表于 2006-08-11 11:30

修改文件的只读属性

修改文件的只读属性
一个小简单的问题，在perl manual里没找到答案，
如果一个文件属性是只读,怎么去掉他的只读属性，在WIN XP下

anthony

UID: 5578
帖子: 196
积分: 450
在线时间: 2 天 4 小时

2^# anthony 发表于 2006-08-11 13:24

WIN32::File--WIN32::Fi.
WIN32::File
WIN32::FileSecurity
或者 system ("ATTRIB xxxxxxxxxxxxxx");

smilelance

UID: 3973
帖子: 103
积分: 236
在线时间: 14 小时

3^# smilelance 发表于 2006-08-11 13:57

能不能给点代码例子,我这样:
use Win32::FileSecurity qw(MakeMask Get Set);
$dst_name = Win32::FileSecurity::MakeMask( qw( STANDARD_RIGHTS_WRITE GENERIC_WRITE) ); # for files
搞不定他,文件还是有只读属性

smilelance

UID: 3973
帖子: 103
积分: 236
在线时间: 14 小时

4^# smilelance 发表于 2006-08-11 14:28

OK了，用WIN32::file 解决.
OK了，用WIN32::file 解决了,谢谢大家，可以结贴了.
Win32::File::GetAttributes($dst_name, $set);
print $set."\n";
Win32::File::SetAttributes($dst_name, ARCHIVE);