User Profile

jpjacquez · Oct 16 '08, 09:54 PM

WOW! Thank you very much Kevin! Appreciate it man..

I didn't know this technique.

Code:

 

$HoA{$data[0]}[$i-1]+=$data[$i];

jpjacquez · Oct 16 '08, 05:01 PM

if you notice my first question, i made it simple actually. get the average for each occurence of disks. i didn't want to put the code as it may confuse you.. but somebody asked for it..

making it hard? yes its easy for you...thats the reason i asked your help in the forum..because i don't know how to make it work..

thanks,
jewsco

jpjacquez · Oct 15 '08, 10:21 PM

sorry for confusion..repl ace the open with..The begin and End pattern is 00:10:00 and 00:20:00 for example..

Code:

open(SAROUT,"/usr/bin/sar -d -f $SarFile |" ) or die "Can't open $!";

output will be like
HP-UX cmihx195 B.11.23 U ia64 10/12/08

Code:

00:00:00   device   %busy   avque   r+w/s  blks/s  avwait  avserv
00:10:00   c2t6d0   10.85    1.43      31     755    1.90

...

jpjacquez · Oct 15 '08, 09:21 PM

here is the code, actually, its just opening and puting it into a hash. I stoped because i not sure how to proceed..

Code:

open(SAROUT,"/tmp/input_file" ) or die "Can't open $!";

while(<SAROUT>) {
   chomp;
   s/\s+/ /g; s/^\s+//g;
   $Lines++;

   if ( $FoundBegin eq 1 ) {
     print "Lines in between: $_\n";
     ( $Disk, $DiskBusy, $Avque,

...

User Profile

Profile Sidebar

Leave a comment:

Leave a comment:

Leave a comment:

Leave a comment:

getting a average value in Perl