Perl 调用 SetAttributes 修改文件属性 （Windows）

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

use Win32::File;

Win32::File::SetAttributes($name,$attr);

#!/usr/bin/perl -w

use Win32::File;

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

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

print "File attributes: $attrn";

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

if ($attr & ARCHIVE) {
    print "$name has ARCHIVE set.n";
}

if ($attr & HIDDEN) {
    print "$name is hidden.n";
}

if ($attr & SYSTEM) {
    print "$name has SYSTEM set.n";
}

if ($attr & COMPRESSED) {
    print "$name has COMPRESSED set.n";
}

if ($attr & DIRECTORY) {
    print "$name has DIRECTORY set.n";
}

if ($attr & NORMAL) {
    print "$name has NORMAL set.n";
}

if ($attr & OFFLINE) {
    print "$name has OFFLINE set.n";
}

if ($attr & TEMPORARY) {
    print "$name has TEMPORARY set.n";
}

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!