collect the system data

jackhhc has asked for the wisdom of the Perl Monks concerning the following question:

Dear Sir:
I want to collect some system data.
I got a report from my server.
I will got the two blocks data echo time.
How can I get the second block data and get the bigger 2 value of util field. I have some script do from shell. But I do't how to do it from perl. thanks
Jack Hu
Data examplt:

--------    device          %util   queue   r+w/s  blks/s     secs-avs
+erv

09:47:09   10/0/15/1.6.0    45.33    0.00      77     897            5
+.88

09:47:09   10/0/15/1.5.0    16.00    0.00      59     806            2
+.74



--------    device          %util   queue   r+w/s  blks/s     secs-avs
+erv

09:47:14   10/0/15/1.6.0     6.50    0.00      21     166            3
+.17

09:47:14   10/0/15/1.5.0     3.44    0.00      18     157            1
+.89

09:47:14   10/2/2/0.3.0      2.48    0.00       4     134            6
+.20

09:47:14   10/2/2/0.13.0     2.29    0.00       4     133            6
+.03

09:47:14   10/1/5/0.2.0      8.22    0.02      15      60            5
+.48
[download]

20030823 Edit by Corion: Fixed formatting

Comment on collect the system data Download Code

Replies are listed 'Best First'.
Re: collect the system data by liz (Monsignor) on Aug 24, 2003 at 08:12 UTC
Not quite sure what you're doing here, but assuming the log is in a file and you want to find out the highest %util value, this would do the trick (I think). `open LOG,'logfile' or die "Can't open 'logfile': $!\n"; my $max = 0; while (<LOG>) { $_ = substr( $_,27,6 ); # make sure the position and length are ok $max = $_ if $_ > $max; # if it's not numeric, it's 0 and never mo +re than $max } print "max = $max\n";` [download] Liz	[reply] [d/l]
Re: collect the system data by CombatSquirrel (Hermit) on Aug 24, 2003 at 10:24 UTC
Give this a shot: #!perl use strict; use warnings; my $section = 0; my ($time, $device, $util, $queue, $rws, $blks, $secs); my @results; open (LOG, '<', 'data.log') or die "Cannot open file data.log for inpu +t: $!\n"; while (<LOG>) { if (/^-+\s+/) { ++$section; next; } if ($section == 2) { next if (/^\s*$/); @results = split; next if (@results != 7); if (!$util or $util < $results[2]) { ($time, $device, $util, $queue, $rws, $blks, $secs) = @result +s; } } } print "Time: $time; device: $device; %util: $util\n"; print "r+w/s: $rws; blks/s: $blks; secs-avserv: $secs\n"; [download] It selects the data with the highest %util value from the second part of the file. Hope this helps, CombatSquirrel.	[reply] [d/l]
Re: collect the system data by asarih (Hermit) on Aug 24, 2003 at 12:27 UTC
I know this is perl monks, but I have to ask: What's wrong with `sort -rnk3 logfile`? If you want just the top 2, then: `sort -rnk3 logfile \| head -2` should do what you want. Do you want the rest unsorted?	[reply] [d/l] [select]


"be consistent"
	PerlMonks