Solved

Dirty Data and Errors

Posted on 2013-11-01
2
180 Views
Last Modified: 2013-11-01
I want to scan a log file for bad connections, looking in column #3, and #6 only. I only want to print lines that have a numerical value of greater than say 250. Some of the columns might have non-numerical values in them. They should not be included.

I have included output below. I would only want the line starting with "name1" to be printed. The value to be over 250 could be either #3, or #6.

Router   Interface     ---ES--  --SES--  --SEFS-  --UAS--  --CSS--  --PCV--  --LES--  --BES--  -TotVal-
name1 T1_0/0/0       389        9       43       38        0     3110        0      279       96
name2 T1_0/0/0         0        0        0        0        0        0        0        0       96
name3 T1_0/0/1         0        0        0        0        0        0        0        0       96
name4 T1_0/1/0         0        0        0        0        0        0        0        0       96
0
Comment
Question by:stakor
2 Comments
 
LVL 84

Accepted Solution

by:
ozo earned 250 total points
ID: 39618232
perl -ane 'print if $F[2]>250 || $F[6]>250' file.log
0
 
LVL 26

Assisted Solution

by:wilcoxon
wilcoxon earned 250 total points
ID: 39618236
Try this...
#!/usr/local/bin/perl
use strict;
use warnings;
my $fil = shift or die "Usage: $0 logfile\n";
open IN, $fil or die "could not open $fil: $!";
while (<IN>) {
    next if /^\s*Router\s*Interface\b/; # skip header row
    my @cols = split;
    print if ($cols[2] > 250 or $cols[5] > 250); # perl is 0-based so this is cols 3 and 6
}
close IN;

Open in new window

0

Featured Post

Courses: Start Training Online With Pros, Today

Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Extract multiple value with delimiters from a string 4 170
perl script help 12 104
Expect & sshpass package for Solaris 10 x86 15 915
unable to remove invisible characters with perl 2 84
I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
In the distant past (last year) I hacked together a little toy that would allow a couple of Manager types to query, preview, and extract data from a number of MongoDB instances, to their tool of choice: Excel (http://dilbert.com/strips/comic/2007-08…
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
Along with being a a promotional video for my three-day Annielytics Dashboard Seminor, this Micro Tutorial is an intro to Google Analytics API data.

786 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question