如何在Windows XP上使用Perl存档.log文件？

Question

尽可能简单的方式，我想知道是否有人知道如何通过将当前“localtime（）”命名为文件名的一部分来将.log文件存档到Windows XP目录中？ （不要假设日志文件上有锁定）我尝试了各种不同的方式来做到这一点，但无法解决它...并没有在网络上的好例子。

以下是我在寻找：

for (all files > that 1 day old) 
    rename file to file.[datestamp].log 
end 

Answer 1

嗯，这个看起来那么容易，我可能误解的东西。任务是将“yada.log”移动到“yada.2011-05-04.log”？那么这个怎么样：

use strict; 
use warnings; 

use File::Copy; 
use POSIX qw(strftime); 

my $dir = $ARGV[0] or die "Usage: $0 <directory>"; 
my $now_string = strftime "%Y-%m-%d_%H%M%S", localtime; 

opendir DIR, $dir or die $!; 
my @files = readdir DIR; 

chdir $dir or die $!; 
for my $file (@files) { 
    next if (-d $file); 
    next unless ($file =~ /^(.*)(\.log)$/i); 
    my $dst = $1 . "." . $now_string . $2; 
    move ($file, $dst) or die "Failed to move $file: $!"; 
} 

Answer 2

opendir(FILES, '*logdir*'); 
my @files = readdir FILES; 
closedir(FILES); 
foreach(@files){ 
    system "move $_ $_.".localtime().".log" if -A $_ > *age*; 
} 

Answer 3

下面是我最终做到了，感谢TLP！这个脚本是＃12线上的越野车，但它几乎不起作用。

use strict; 
use warnings; 
use File::Copy; 
use POSIX qw(strftime); 

my $dir; 
my $file; 

if (@ARGV = 2) { 
    print "Two args accepted."; 
    $dir = $ARGV[0] or die "Usage: <directory> <filename>"; 
    $file = $ARGV[1] or die "Usage: <directory> <filename>"; 
    goto runblock; 
} 
else { print "Number of arguments must be 2: directory filename\n"; goto fail; } 

runblock: print "Renaming $file .\n"; 

chdir $dir or die $!; 
my $now_string = strftime "%Y-%m-%d_%H%M%S", localtime; 
if (-e $file) { 
    if (-A $file > 7) { 
    my $dst = "siteAlive." . $now_string . ".log"; 
    move($file, $dst) or die "Failed to move $file: $!"; 
    goto endscript; 
    } 
} 

fail: print "Failed to rename $file . Try again.\n" ; 
endscript: print "End of script.\n"; 

Answer 4

也许有一些模块可以为你做这个，比如Logfile::Rotate。