怎么用perl每隔1小時刪除當(dāng)前文件夾下的日志文件（不使用crontab）

glt66

怎么用perl每隔1小時刪除當(dāng)前文件夾下的所有日志文件（不使用crontab）

Perl_Er

回復(fù) 1# glt66


    crontab

glt66

有例子嗎？

cdtits

1. #!/usr/bin/env perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $timeval = 60;
   
7. while (1) {
   
8.     my $time = localtime;
   
9.     print "$time => delete all log file\n";
   
10.     for my $file (<*.log>) {
    
11.         unlink $file or warn "Can't unlink $file: $!";
    
12.         print "\t\tdelete $file\n";
    
13.     }
    
14.     sleep $timeval;
    
15. }
    

復(fù)制代碼

cdtits

呵呵， $timeval = 60 * 60;

py

1. use AnyEvent;

復(fù)制代碼

http://www.php-oa.com/2011/03/23/perl-anyevent-ev.html