下面是编程之家 jb51.cc 通过网络收集整理的代码片段。
编程之家小编现在分享给大家,也给大家做个参考。
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: $attr\n"; 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"; }
以上是编程之家(jb51.cc)为你收集整理的全部代码内容,希望文章能够帮你解决所遇到的程序开发问题。
如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。