Regular Expression Assistance
I have the following data:
Code:
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 86400 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 163 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
2 Errored Secs, 1 Bursty Err Secs, 7 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 86400 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 145 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 2 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 86400 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 245 Unavail Secs
2 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 86403 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 608 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 11 Severely Err Secs, 2147481920 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 86400 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 591 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 86400 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 353 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 13 Severely Err Secs, 5 Unavail Secs
0 Errored Secs, 0 Bursty Err Secs, 0 Severely Err Secs, 0 Unavail Secs
Weekly Equipment Errors for 03/15/09
****** Errored Seconds on Frame Connections *******
errors.031509:****** Errored Seconds on Frame Connections *******
57 output errors, 88 collisions, 0 interface resets
0 output errors, 0 collisions, 0 interface resets
0 output errors, 0 collisions, 0 interface resets
0 output errors, 0 collisions, 5 interface resets
I want to ignore anyone of the lines that start with /[0-2] Errored/ and also ignore any of the lines that have /[0-2] interface resets/. I have the following code:
Code:
#!/usr/bin/perl
use warnings;
use strict;
open(ERR, "error") or die "Can't open file: $!";
my @ERR=<ERR>;
foreach my $line(@ERR)
{
if($line =~ /^\s+?[0-2]|^\s+?Weekly|^\*|^error|\w+?interface/)
{
next;
}
else
{
print "$line\n";
}
}
Any help with the syntax would be appreciated.
Thanks! |
