Re: only print data ie between two lines

All those while ( $line = <$log> ) seems to me a bad design of your algorithm. If any of the ifs inside them fails, you will consume all the input in a inner while. It seems that at some point one of your regular expressions inside and if statement is failing, thus consuming the rest of the fail. I would also recommend you to use strict and use warnings in your code, specially in code you are testing and (like this case) is giving problems.

I want to count it in between these lines...

The range operator (see perlop) could be an alternative for this. Something like (untested):

while (my $line = <$log>){
   if (/recvd AA_BIN_MSG_VER_CHG/ .. /?:(Prepared to Send OK|Sending I
+nvalid credential)/){
      if (/Handling NSPAdvice for mechanism \[4\]/ .. /whatever_condit
+ion_to_reset_this_block/) {
          if ($line =~ /Authentication mechanism returne
+d \[(\d+)\]/) { 
             my $errorCode = $1; 
             print "$errorCode\n"; 
             $ArcotIDError_Count++ if ($errorCode != 0 && $errorCode !
+= 1); 
          } 
      }
   }
}
[download]

citromatik

Comment on Re: only print data ie between two lines Select or Download Code

Replies are listed 'Best First'.
Re^2: only print data ie between two lines by namishtiwari (Acolyte) on Jun 17, 2009 at 11:33 UTC
i got this error message when i ran the code with range operator- `Quantifier follows nothing in regex; marked by <-- HERE in m/? <-- HER +E :(Prepar ed to Send OK\|Sending Invalid credential)/ at Count_ErrorCode.pl line +34.` [download] Thanks NT	[reply] [d/l]
Re^3: only print data ie between two lines by citromatik (Curate) on Jun 17, 2009 at 12:13 UTC
My mistake: `/?:(Prepared to Send OK\|Sending I +nvalid credential)/` [download] should be `/(?:Prepared to Send OK\|Sending I +nvalid credential)/` [download] citromatik	[reply] [d/l] [select]


Your skill will accomplish what the force of many cannot
	PerlMonks