perl script to parse this file

ohcarol · 11-01-2006, 02:27 AM

HOw can I parse the the selected value only from the list below with perl?
Like for "queu dn_def_quick" bytes 12430
and for "queue dn_usr1_def " bytes 11808199 dropped pkts: 188

queue dn_def_quick bandwidth 3.20Kb priority 6 hfsc( red ecn )
[ pkts: 0 bytes: 12430 dropped pkts: 112 bytes: 0 ]
[ qlength: 0/ 50 ]
[ measured: 0.0 packets/s, 0 b/s ]
queue dn_usr1 bandwidth 25.60Kb {dn_usr1_def, dn_usr1_web, dn_usr1_quick}
[ pkts: 0 bytes: 124450 dropped pkts: 0 bytes: 0 ]
[ qlength: 0/ 50 ]
[ measured: 0.0 packets/s, 0 b/s ]
queue dn_usr1_def bandwidth 12.80Kb priority 2 hfsc( red ecn realtime 12.80Kb )
[ pkts: 15437 bytes: 11808199 dropped pkts: 188 bytes: 226101 ]

twantrd · 11-01-2006, 06:09 AM

Is this what you want?

Code:

twantrd@tdebian:~/perl_scripting$ perl /tmp/match.pl
Section Match: queue dn_def_quick
bytes: 12430

Section Match: queue dn_usr1_def
bytes: 11808199 dropped pkts: 188
twantrd@tdebian:~/perl_scripting$

My code really sucks and I hope someone could assist in either cleaning it up or rewriting a new one that makes better sense and logic. Anyhow, below is one that I wrote. I'm still learning perl

.

Code:

#!/usr/bin/perl

open FH, "/tmp/file" || die "File does not exist!";
while (<FH>){
  last if (/queue dn_def_quick bandwidth/);
}

# do first section
my $section=<FH>;
my($bracket,$packet,$num,$bytes,$num1,$dropped,$packet1,$num2,$bytes1,$num,$bracket2)=split(/ /, $section);
print "Section Match: queue dn_def_quick\n";
print "$bytes $num1\n\n";

# do second section
while (<FH>){
  last if (/dn_usr1_def bandwidth/);
}
my $section=<FH>;
my ($bracket,$packet,$num,$bytes,$num1,$dropped,$packet1,$num2,$bytes1,$num,$bracket2)=split(/ /, $section);
close FH;
print "Section Match: queue dn_usr1_def\n";
print "$bytes $num1 $dropped $packet1 $num2\n";

-twantrd

ohcarol · 11-01-2006, 09:11 AM

Thanks for you quick response
But what about the white spaces which have 5-6 white spaces

queue up_def_web bandwidth 6.40Kb priority 3 hfsc( red ecn )
[ pkts: 0 bytes: 0 dropped pkts: 0 bytes: 0 ]
[ qlength: 0/ 50 ]
queue up_def_quick bandwidth 6.40Kb priority 6 hfsc( red ecn )
[ pkts: 36 bytes: 3177 dropped pkts: 0 bytes: 0 ]
[ qlength: 0/ 50 ]
queue up_usr1 bandwidth 51.20Kb {up_usr1_def, up_usr1_web, up_usr1_quick}
[ pkts: 0 bytes: 0 dropped pkts: 0 bytes: 0 ]
[ qlength: 0/ 50 ]
queue up_usr1_def bandwidth 25.60Kb priority 2 hfsc( red ecn realtime 25.60Kb )
[ pkts: 1394 bytes: 482975 dropped pkts: 0 bytes: 0 ]
[ qlength: 0/ 50 ]

twantrd · 11-01-2006, 01:52 PM

What about them? I don't see where the problem is.

-twantrd

ohcarol · 11-01-2006, 05:53 PM

May be white spaces are not shown by this forum.

keefaz · 11-01-2006, 06:00 PM

Just change the split regexp to match one or more space ?

Code:

my($..., $..., ...)=split(/ +/, $section);

ohcarol · 11-01-2006, 06:21 PM

Thanks, it really help a lot, now another sample file is

Interface Stats for rl0 IPv4 IPv6
Bytes In 178420849 0
Bytes Out 31594925 0
Packets In
Passed 276970 0
Blocked 140482 0
Packets Out
Passed 182922 0
Blocked 780 0

While doing "last if(/Packets In/)" command it only shows Passed 276970 0. What I want to do is for "Packets In" I want to get both Passed and Blocked IPv4 value i.e. for passed: 276970 and Blocked: 140482
Same for "Packets Out" Passed: 182922 Blocked: 780

keefaz · 11-01-2006, 06:28 PM

just redo a $section=<FH>; and consecutive line

ohcarol · 11-01-2006, 07:19 PM

Yeah i did that but it will only display "Passed 141190 0" line only

Packets In has two line
Packets In
Passed 4585422 0
Blocked 4550 0

Whereas Packets Out has same two line too

Packets Out
Passed 55666 0
Blocked 4454 0

What I want is "last if(/ Packets In/) will display Packets In both passed and blocked line so that I can extract the value.

twantrd · 11-02-2006, 03:23 AM

Here ya go. Below is the output:

Code:

twantrd@tdebian:/tmp$ ./match.pl
Packets In
Passed 276970 0
Blocked 140482 0

Code:

#!/usr/bin/perl

open FH, "/tmp/file" || die "File does not exist!";
while (<FH>){
  last if (/Packets In/);
}
$prev1=$_;
my ($curr, $next1)=<FH>;
close (FH);
print "$prev1$curr$next1";

-twantrd

ohcarol · 11-02-2006, 09:50 AM

Thanks, that was it what I want.