pattern matching with time

[kriz4321]

Hi All,

Below is the contents of a log file.I need to collect the time when LP is disabled.
ie( 07:12:29.69) and the time LP is enabled(07:13:57.08),and find the difference betwwen two.Now I can match the word "Com: LP is Disabled" in the file but
how to take that particular time which is six lines above it.

Note:We cannot make any comparison using lp/2 as it keeps on changing.

can any one tell me how to do this?


contents of file::


Lp/2; 2007-01-03 07:12:29.69
SET critical processing underlyingResourceUnavail 70120200
ADMIN: unlocked OPER: disabled USAGE: idle
AVAIL: dependency PROC: CNTRL:
ALARM: critical STBY: notSet UNKNW: false
Id: C8 Rel: Shelf Card/2
Com: LP is Disabled
Int: 0/0/2/11244; pcsLpMgr.cc; 4385;


Shelf Card/2; 2007-01-03 07:13:22.02
CLR cleared equipment processorProblem 70120100
ADMIN: unlocked OPER: enabled USAGE: idle
AVAIL: PROC: CNTRL:
ALARM: STBY: notSet UNKNW: false
Id: CB Rel:
Com: Card is Enabled
Int: 0/0/2/11244; pcsCardMgr.cc; 9849;



114>
Lp/2; 2007-01-03 07:13:57.08
CLR cleared processing underlyingResourceUnavail 00000000
ADMIN: unlocked OPER: enabled USAGE: active
AVAIL: PROC: CNTRL:
ALARM: STBY: providingServ UNKNW: false
Id: CD Rel: Shelf Card/2
Com: LP is Enabled
Int: 0/0/2/11244; pcsLpMgr.cc; 4385; U

[KevinADC]

collect the time first then check if it's disable or enable.

[KevinADC]

or might be easier to read the file backwards. Then you get your enabled/disabled tokens first. Can you install perl modules? There is a module for reading files backwards.

http://search.cpan.org/~uri/File-Rea...adBackwards.pm

if not and the file isn't gigantic you can read it into an array and reverse the array.

[docsnyder]

@kriz4321

@file = (
  "Lp/2; 2007-01-03 07:12:29.69\n",
  "SET critical processing underlyingResourceUnavail 70120200\n",
  "ADMIN: unlocked OPER: disabled USAGE: idle\n",
  "AVAIL: dependency PROC: CNTRL:\n",
  "ALARM: critical STBY: notSet UNKNW: false\n",
  "Id: C8 Rel: Shelf Card/2\n",
  "Com: LP is Disabled\n",
  "Int: 0/0/2/11244; pcsLpMgr.cc; 4385;\n",
  "\n",
  "\n",
  "Shelf Card/2; 2007-01-03 07:13:22.02\n",
  "CLR cleared equipment processorProblem 70120100\n",
  "ADMIN: unlocked OPER: enabled USAGE: idle\n",
  "AVAIL: PROC: CNTRL:\n",
  "ALARM: STBY: notSet UNKNW: false\n",
  "Id: CB Rel:\n",
  "Com: Card is Enabled\n",
  "Int: 0/0/2/11244; pcsCardMgr.cc; 9849;\n",
  "\n",
  "\n",
  "\n",
  "114>\n",
  "Lp/2; 2007-01-03 07:13:57.08\n",
  "CLR cleared processing underlyingResourceUnavail 00000000\n",
  "ADMIN: unlocked OPER: enabled USAGE: active\n",
  "AVAIL: PROC: CNTRL:\n",
  "ALARM: STBY: providingServ UNKNW: false\n",
  "Id: CD Rel: Shelf Card/2\n",
  "Com: LP is Enabled\n",
  "Int: 0/0/2/11244; pcsLpMgr.cc; 4385; U\n",
);
 
sub printState {
  my($whichTime, $whichLp, $state) = @_;
 
  printf("[$whichTime] Lp$whichLp -> $state\n");
}
 
for $line ( @file ) {
  $state = "";
 
  if ( $line =~ /^Lp/ ) {
    ($whichLp, $whichTime) = ($line =~ /^^Lp\/([\d+]);\s+[\d-]+\s+(.*)/g);
  }
  elsif ( $line =~ /^ADMIN.*enabled\s+USAGE:\s+active.*/ ) {
    printState($whichTime, $whichLp, "enabled");
  }
  elsif ( $line =~ /^ADMIN.*disabled\s+USAGE:\s+idle.*/ ) {
    printState($whichTime, $whichLp, "disabled");
  }
}

Substitute the code

@file = ...

by your input method of reading the file.

Greetz, Doc

[KevinADC]

here is another suggestion:

my @log = ();
open(FH,'log.txt') or die "$!";
while(<FH>){
   push @log,$1 if (m|^Lp/2;\s+\S+\s+(\S+)$|);
   push @log,$1 if (m/^Com: LP is (Enabled|Disabled)/);
}
close(FH);
@log = reverse @log;
 
my ($e,$d) =(0,0);
foreach my $i (0..$#log-1) {
   if ($log[$i] eq 'Enabled'){
      $e = $log[$i+1];
   }
   elsif ($log[$i] eq 'Disabled') {
      $d = $log[$i+1];
   }
   if ($e && $d) {
      convert them into total seconds
      subtract to get difference
      reset $e and $d if there will be more
   }
}

admitedly, I did not put much thought into this, so it probably can be improved upon.