on Tue, 27 Aug 2002 22:55:54 GMT, [EMAIL PROTECTED] (Bobby)
wrote:
> I have a log file which is generated by backup script and i am
> writing a perl script to sort the log so as to prepare it to put
> into mysql database and iam having a problem in doing that.
Something like this?
#! perl -w
use strict;
my $prevblocks = 0;
my $tapeno = 1;
while (<DATA>) {
my @data = /^INCREMENTAL\ OF\s+
(\S*)
\s+ON\s+
(\d\d\d\d-\d\d-\d\d)
.*block\s+
(\d+)
\.
$/x;
die "Bad data at input line $.\n" unless @data == 3;
$tapeno++ if $data[2] < $prevblocks;
print qq{"$data[1]","TAPE$tapeno","$data[0]","$data[2]"\n};
$prevblocks = $data[2];
}
--
felix
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
