+ -
当前位置:首页 → 问答吧 → 请教一段修改文件A属性的代码

请教一段修改文件A属性的代码

时间:2011-02-24

来源:互联网

自己写了一段批量修改文件A属性的代码,可是总是修改失败,始终debug不出问题,麻烦大家帮忙看一下
  1. use POSIX;
  2. use strict;
  3. use Win32::File;


  4. my $list = "list.txt";
  5. my $bat = "dir c:\\WINDOWS\\system32\\Logfiles\\W3SVC1 /A:A /b /s > ".$list;
  6. my $attr = NORMAL ;
  7. my @cmd;
  8. push @cmd,$bat;
  9. system (@cmd);
  10. undef (@cmd);
  11. open(FILES,$list);
  12. my @file_name = <FILES>;
  13. for ( my $i=0;$i<($#file_name+1);$i++)
  14. {
  15.         Win32::File::SetAttributes($file_name[$i], $attr);
  16. }
复制代码

作者: czm21   发布时间: 2011-02-24

dir  的 /s 选项会带进垃圾信息
还有你这个脚本这么写只能扔到c:\\WINDOWS\\system32\\Logfiles\\W3SVC1 下去执行

貌似直接批处理还来得快 。。。

作者: xfoucs   发布时间: 2011-02-24

回复 xfoucs


    谢谢回复,我后来改用 attrib -a filename批处理了,但是还是想搞明白之前用Win32::File::SetAttributes时候为什么没反应呢。

作者: czm21   发布时间: 2011-02-24