Windows XP에서 Perl로 .log 파일을 보관하는 방법은 무엇입니까?

Question

가능한 한 간단한 방법으로 누군가가 파일 이름의 일부로 현재 "localtime()"으로 이름을 지정하여 Windows XP 디렉터리에 .log 파일을 보관하는 방법을 알고 있다면 궁금합니다. (로그 파일에 자물쇠가 있다고 가정하지 마십시오.)이 작업을 수행하는 다양한 방법을 시도했지만 해결할 수 없었습니다 ... 웹에 좋은 예제가 없습니다. 여기

내가 무엇을 찾고 있습니다 :

이

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처럼, 당신을 위해 somehting을이 작업을 수행 할 수있는 몇 가지 모듈이 있습니다.