Regular Expression Assistance

0.o · 03-18-2009, 11:37 AM

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!

0.o · 03-18-2009, 12:15 PM

Got it. I was ignoring the interface lines with the first regex.