Getting Log File for Current/Last Week

LostS has asked for the wisdom of the Perl Monks concerning the following question:

OK here is what I am doing. I have WebAlizer and I need to run it against many server's against the logs. Now I wrote this:

#### Web 1 #####
$directory = "I\:\\logs\\iis\\W3SVC1\\";

opendir DIR, $directory or die "Couldn't open $directory : $!\n";
@files = readdir( DIR ) or die "Couldn't read from $directory : $!\n";
closedir( DIR );

@files = grep {/\.log$/} @files;

foreach $line (@files) {
    system("C:\\webalizer\\webalizer -c C:\\webalizer\\web1.conf $dire
+ctory$line");
}
[download]

Now that was to just get the initial start of all the logs. Now I need to modify it to get the last log. My log files are Weekly or Monthly. So like my logs will look like nc0211.log for monthly and nc021103.log for weekly. Can anyone help me determine how to grep/read only the last log. I would say the last modified but by time the script runs the server might have started a new one. Any suggestions??

-----------------------
Billy S.
Slinar Hardtail - Guildless
Datal Ephialtes - Guildless
RallosZek.Net Admin/WebMaster

perl -e '$cat = "cat"; if ($cat =~ /\143\x61\x74/) { print "Its a cat!
+\n"; } else { print "Thats a dog\n"; } print "\n";'
[download]

Comment on Getting Log File for Current/Last Week Select or Download Code

Replies are listed 'Best First'.

Re: Getting Log File for Current/Last Week
by LostS (Friar) on Nov 14, 2002 at 19:33 UTC

open (OLDTIME, "time.txt");
$time = <OLDTIME>;
close(OLDTIME);


#### Web 1 #####
$directory = "I\:\\logs\\iis\\W3SVC1\\";

opendir DIR, $directory or die "Couldn't open $directory : $!\n";
@files = readdir( DIR ) or die "Couldn't read from $directory : $!\n";
closedir( DIR );

@files = grep {/\.log$/} @files;

foreach $line (@files) {
    $modtime = (stat("$directory$line"))[9];
    if ($modtime > $time) {
        system("C:\\webalizer\\webalizer -c C:\\webalizer\\web1.conf $
+directory$line");
    }
}

$nowtime = time();

open (TIME, ">time.txt");
print TIME "$nowtime";
close(TIME);
[download]

perl -e '$cat = "cat"; if ($cat =~ /\143\x61\x74/) { print "Its a cat!
+\n"; } else { print "Thats a dog\n"; } print "\n";'
[download]

[reply]
[d/l]
[select]


Don't ask to ask, just ask
	PerlMonks