Parsing rows and column data from a file using perl

dav_y2k · 10-07-2006, 03:28 AM

Hi all,
I am a newbie to perl and have successfully added the information below from multiple devices and interfaces (using the "show queueing int interface" command) into multiple files and split the info from each file into an array,

I need to be able to parse the data in such a way that I can pick any of the corresponding info. from any column to its corresponding row. e.g if I want to add the total no. of drops or thresh etc. or I want to match any of the [cos-map] row to its corresponding queue or thresh.

Packets dropped on Transmit:
BPDU packets: 0

queue thresh dropped [cos-map]
---------------------------------------------------
1 1 0 []
1 2 0 []
2 1 1766 [0 1 2 3 4 5 6 7 ]
2 2 0 []

thanks

homey · 10-08-2006, 11:57 AM

Is this anything at all like you have in mind?

Code:

#!/usr/bin/perl -w
# Example: ./myscript 4
# queue thresh dropped [cos-map]

my $COS = $ARGV[0];
print "\n";

open(INFILE, "/home/file.txt") || die "Can't open file for read: $!";
while (<INFILE>){
   ($var1, $var2, $var3) = split /\s+/;

   $QT = ($QT += $var1);
   $TT = ($TT += $var2);
   $DT = ($DT += $var3);
   write;
}

# Note: leave the periods ( . ) as they are needed.

# Output text header
format STDOUT_TOP =
  queue    thresh   dropped    [cos-map]

.

# Output text body
format STDOUT =
@#####  @#####    @#####     @#####
$var1,$var2,$var3,$COS
.

$~ = "STDOUT_TOTALS";
write;

# Output text footer
format STDOUT_TOTALS =
-------------------------------------
@#####  @#####    @#####
$QT,$TT,$DT

.
####End