Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re: only print data ie between two lines

by citromatik (Curate)
on Jun 17, 2009 at 10:08 UTC ( #772316=note: print w/replies, xml ) Need Help??

in reply to 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); } } } }


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 line +34.
    Thanks NT

      My mistake:

      /?:(Prepared to Send OK|Sending I +nvalid credential)/
      should be
      /(?:Prepared to Send OK|Sending I +nvalid credential)/


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://772316]
[Discipulus]: someone can explain last faq by jdporter? if humor i missed it

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (10)
As of 2018-06-22 07:44 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (122 votes). Check out past polls.