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

czm21

自己写了一段批量修改文件A属性的代码，可是总是修改失败，始终debug不出问题，麻烦大家帮忙看一下

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

复制代码

xfoucs

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

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

czm21

回复 2# xfoucs


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

xfoucs

回复 3# czm21


for ( my $i=0;$i<($#file_name+1);$i++)
{
         chomp $file_name[$i];
         print $file_name[$i];           #看看你的文件名是什么就知道了
         Win32::File::SetAttributes($file_name[$i], $attr);
}

xfoucs

这个应该可以吧，没装iis 所以没法测试。。。

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. use File::Spec;
   
5. use Win32::File;
   
6. 
   
7. my $sysroot=$ENV{"SystemRoot"};
   
8. my $www_log_dir=File::Spec->catdir($sysroot,"\\system32\\Logfiles\\W3SVC1");
   
9. my $cmd='dir '.$www_log_dir.' /A:A /b /s';
   
10. my @log_list=`$cmd`;
    
11. my $attr=NORMAL;
    
12. foreach(@log_list)
    
13. {
    
14.     chomp;
    
15.     if(-e)
    
16.     {
    
17.         Win32::File::SetAttributes($_, $attr);        
    
18.     }
    
19.    
    
20. }
    

复制代码