windows下Perl删掉过期文件

leehunter

看到别人写的代码，用perl删掉过期文件,我也结合一下别人的优点，windows下用Perl删掉目录过期文件
[Perl]代码

1. #!/usr/bin/perl
   
2. use Tk;
   
3. use Encode;
   
4. use Win32::API;
   
5. use threads;
   
6. use Encode::CN;
   
7. use Tk::BrowseEntry;
   
8. use Tk::NoteBook;
   
9. require Tk::BrowseEntry;
   
10. use Tk::LabEntry;
    
11. use Genesis;
    
12. use POSIX qw(strftime);
    
13. use Win32::ODBC;
    
14. use Win32;
    
15. use Win32::OLE;
    
16. use Win32::OLE qw(in);
    
17. use Win32::OLE::Variant;
    
18. use Digest::MD5 qw(md5_hex);
    
19. use MIME::Base64;
    
20. use Socket;
    
21. use warnings;
    
22. use Time::Local;
    
23. use File::stat;
    
24. use POSIX qw(strftime);
    
25. use 5.010;
    
26. require 'shellwords.pl';
    
27. #$host = shift;
    
28. #$f = new Genesis($host);
    
29. #$GENESIS_EDIR = $ENV{GENESIS_EDIR};
    
30. #$GENESIS_DIR = $ENV{GENESIS_DIR};
    
31. #$STEP = $ENV{STEP};
    
32. #$TMP = $ENV{TMP};
    
33. #$JOB = $ENV{JOB};
    
34. 
    
35.    
    
36. 
    
37. 
    
38. #读取这个文件的日期
    
39. $File = "d:/55.pdf";
    
40. $Date_String = strftime "%Y%m%d", (localtime stat($File)->mtime)[0..5];
    
41. print "Date_String = $Date_String \n";
    
42. 
    
43.    
    
44. 
    
45. my $Dir = "d:/findx";
    
46. my $File;
    
47. my @Dir;
    
48. 
    
49. opendir (DIR, $Dir) or die "can't open the directory!";
    
50. @Dir = readdir DIR;
    
51. foreach $File (@Dir) {
    
52.        if ( $File =~ /[a-z]/) {   #读取所有文件以a-z开头的文件
    
53.            #if ( $File =~ /[a-z]*\.zip/) {  #文件名是以字母开头,并以zip结尾的
    
54.            #print "$File \n";
    
55.            $Fliex = "$Dir/$File";
    
56.            $Date_String = strftime "%Y%m%d", (localtime stat($Fliex)->mtime)[0..5];
    
57.            print "$File  = $Date_String \n";
    
58.            $mtime= -M $Fliex;
    
59.                   
    
60.                    #文件超过6天且小于10天的，删掉
    
61.                if ($mtime > 6 && $mtime < 10){
    
62.                    print "$mtime File Date old Than 10 Day |*| $Fliex = $Date_String \n";
    
63.                    unlink $Fliex;
    
64.                } else{
    
65.                    print "$mtime Not Than $Fliex = $Date_String \n";
    
66.                }
    
67.                  
    
68.        } else {
    
69.           print "Not the kind of file type you want!\n";
    
70.        }
    
71. }

复制代码

wand65

wow