I was wondering if anyone could help? I would like to read information from
a logfile and then calculate the dates to get the backup time for each
group. I understand how I can get the start and stop time for each group
but how would I use that information to get the calculated backup time. I
am probably going about this wrong???? I placed the script and the output
below.
Thanks,
Lane
#!/usr/local/bin/perl
#use Date::Manip qw (ParseDate DateCalc);
open(LOG, "/home/willipl1/savetest.log") or die "something is wrong:$!\n";
while (<LOG>) {
print if /\bNetworker\b/i;
print if (/\bStart\b/i + /\bEnd\b/i);
#print "total backup time for group:";
}
close(LOG);
#$startDate = ParseDate ("");
#$endDate = ParseDate("");
#print DateCalc($startDate, $endDate);
OUTPUT:
NetWorker Savegroup: (notice) wkstninc completed, 1 client(s) (All
Succeeded)
Start time: Thu May 10 11:28:30 2001
End time: Thu May 10 11:51:53 2001
NetWorker Savegroup: (notice) wkstninc completed, 1 client(s) (All
Succeeded)
Start time: Thu May 10 15:02:51 2001
End time: Thu May 10 15:03:54 2001
NetWorker Savegroup: (notice) wkstninc completed, 1 client(s) (All
Succeeded)
Start time: Thu May 10 15:14:01 2001
End time: Thu May 10 15:14:28 2001
NetWorker Savegroup: (notice) wkstninc completed, 2 client(s) (All
Succeeded)
Start time: Fri May 11 14:26:42 2001
End time: Fri May 11 16:05:34 2001
NetWorker Savegroup: (notice) wkstninc completed, 2 client(s) (All
Succeeded)
Start time: Fri May 11 16:36:39 2001
End time: Fri May 11 16:45:52 2001
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, May 16, 2001 10:17 AM
To: [EMAIL PROTECTED]
Subject: logfiles
Has anyone ever had to extract a date from a text logfile, calculate the
difference between two dates and then output the results? I am using
Legato Networker and need to extract the start and stop times for group
backups and output the total time for each group. the date format is as
follows:
Start time: Thu May 10 11:28:30 2001
End time: Thu May 10 11:51:53 2001
Thanks,
Lane
If you wish to unsubscribe, send an e-mail to:
[EMAIL PROTECTED]
==^================================================================
EASY UNSUBSCRIBE click here: http://topica.com/u/?bz8Qae.bAuubb
Or send an email To: [EMAIL PROTECTED]
This email was sent to: [EMAIL PROTECTED]
T O P I C A -- Learn More. Surf Less.
Newsletters, Tips and Discussions on Topics You Choose.
http://www.topica.com/partner/tag01
==^================================================================
_______________________________________________
Perl-Unix-Users mailing list. To unsubscribe go to
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users
