I have a two line pattern I would like to match and include 3 groupings.
59 REPT: EVDO: RNC 24 CP FAILURE SUMMARY SESSION RELEASE
RAN AUTH FAILURE PPP, ERROR CODE 51001
For final outcome I would like:
$1 = 24
$2 = CP FAILURE SUMMARY SESSION RELEASE RAN AUTH FAILURE PPP
$3 = ERROR CODE 51001
while ( my $line = <$FIN> ) {
if ( $line =~ /EVDO:\s*RNC\s*(\d+)(.*\n{1}.*),(ERROR CODE\s*\d+)/m) {
print $line,"\n";
} else {
print "No Match\n";
}
}
I haven't had much luck matching the second line.
Any help is greatly appreciated.
Thanks,
Chris
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
