[완료] [질문] perl - vmstat 결과의 평균 (array의 칼럼별 평균)

#!/usr/bin/env perl
#!/usr/bin/perl
#!/opt/perl/bin/perl
################################################################################
# vmstat.pl
#
# Developed 05/01/2006 by KueTae Kim
#   <a href="mailto:ktkim87@empal.com" rel="nofollow">ktkim87@empal.com</a>   <a href="mailto:kuetae.kim@gmail.com" rel="nofollow">kuetae.kim@gmail.com</a>
#
# * 목적
#   - DB 모니터링시 시스템 리소스(특히 CPU, Memory)를 같이 모니터링함.
#   - 가끔 DB 내부 리소스 경합보다는 시스템 리소스 부족으로 성능저하/장애발생함.
#   - 툴에서 제공하는 5분 주기의 평균값으로는 분석이 어려운 경우 존재함.
#
# * 용도
#   - DB 장애시점 시스템 리소스 점검
#   - DB 진단시 시스템 CPU, 메모리 관련 사용 추이 그래프 (Excel 활용)
#
# * 사용방법
#   $ vmstat.pl 5 1000000
#
# HISTORY:
#   Date       Developer Description
#   ---------- --------- ---------------------------
#   2006.05.01 ktkim     HP-UX
#   2007.12.15 ktkim     AIX 추가
#   2009.04.05 ktkim     Sun OS 추가
#   2009.09.20 ktkim     평균값으로 대체
################################################################################
 
use strict;
use warnings;
# use DBI;
use IO::Handle;
use Time::HiRes qw(gettimeofday usleep tv_interval);
 
my $ret ;
my @vmstat_sum ;
my @vmstat_avg ;
 
my $run_cnt = 0 ;
my $max_cnt = 17280 ;
my $sleep_time = 5 ;
 
my $vmstat_cnt = $sleep_time ;
my $row_cnt ;
my $col_cnt ;
 
my $osname ;
my $hostname ;
my $curr_date = "1" ;
my $tmp_date = "0" ;
my $curr_datetime ;
my $fname ;
my $line ;
my $value ;
my $header_print = "N" ;
my $header_count = 20  ;
my $vmheader_SunOS ;
my $vmheader_HPUX  ;
my $vmheader_AIX  ;
 
 
$vmheader_SunOS = qq{
                        kthr     memory(GB)               page                              faults            cpu
   DateTime           r   b   w  swap free    re    mf    pi    po    fr  de  sr       in     sy     cs    us  sy  id 
} ;
 
$vmheader_HPUX = qq{
                        procs     memory(GB)              page                              faults            cpu
   DateTime           r   b   w   avm free    re    at    pi    po    fr  de  sr       in     sy     cs    us  sy  id 
 
} ;
 
 
$vmheader_AIX = qq{
                      kthr    memory(GB)               page                             faults            cpu
   DateTime           r   b   avm free    re    pi    po     fr     sr     cy       in     sy     cs    us  sy  wa  id 
 
} ;
 
################################################################################
# Command Line Input
################################################################################
if ( $#ARGV == 0 ) {
  $sleep_time = $ARGV[0] ;
} elsif ( $#ARGV == 1 ) {
  $sleep_time = $ARGV[0] ;
  $max_cnt    = $ARGV[1] ;
} else {
  print "Usage: $0  sleep  count \n" ;
}
$vmstat_cnt = $sleep_time ;
 
################################################################################
# Main
################################################################################
 
$osname   = `uname -s` ;
chomp($osname) ;
$hostname = `hostname` ;
chomp($hostname) ;
$curr_date = currdate() ;
$fname = "vmstat_" . $hostname . "_" . $curr_date . ".log" ;
 
open( FH,  "+>>" . $fname  ) || die "Can't open log file $fname." ;
FH->autoflush(1);
 
while ( $max_cnt > $run_cnt ) {
  #-----------------------------------------------------------------------------
  #
  $tmp_date = currdate() ;
  if ( $curr_date ne $tmp_date  ) {
     close( FH ) ;
     $curr_date = $tmp_date ;
     $fname = "vmstat_" . $hostname . "_" . $curr_date . ".log" ;
     open( FH,  "+>>" . $fname  ) || die "Can't open log file $fname." ;
     FH->autoflush(1);
     print $fname , "\n" ;
  }
 
  $ret = `vmstat 1 $vmstat_cnt  | tail -($vmstat_cnt -1) ` ;
 
  # 평균을 구한다.
  @vmstat_sum = () ;
  @vmstat_avg = () ;
  $row_cnt = 0 ;
  foreach $line ( split /\n/, $ret ) {
    $line =~ s/^\s*//g ;
    # chomp($line) ;
    $col_cnt = 0;
    foreach $value ( split /\s+/, $line ) {
      # @vmstat_avg = split / +/,  $line ;
      $vmstat_sum[$col_cnt] += $value ;
      $col_cnt++;
    }
    $row_cnt++;
  }
  @vmstat_avg = map { $_ / $row_cnt } @vmstat_sum ;
 
  if ( ( $run_cnt % $header_count ) == 0 ) {
    $header_print = "Y"
  } else {
    $header_print = "N"
  }
 
  if ( $osname eq "SunOS" ) {
    printf(FH  $vmheader_SunOS ) if $header_print eq "Y" ;
    printf(FH "%s%4d%4d%4d  %4.0f%4.0f %6d%6d%6d%6d  %4d%4d%4d  %7d%7d%7d  %4d%4d%4d\n",
      currdatetime(), $vmstat_avg[0], $vmstat_avg[1],$vmstat_avg[2],
      $vmstat_avg[3]/1024/1024,$vmstat_avg[4]/1024/1024,
      $vmstat_avg[5],$vmstat_avg[6],$vmstat_avg[7],$vmstat_avg[8],$vmstat_avg[9],$vmstat_avg[10],$vmstat_avg[11],
      $vmstat_avg[16],$vmstat_avg[17],$vmstat_avg[18],
      $vmstat_avg[19],$vmstat_avg[20],$vmstat_avg[21] ) ;
  } elsif ( $osname eq "HP-UX" ) {
    printf(FH  $vmheader_HPUX ) if $header_print eq "Y" ;
    printf(FH "%s%4d%4d%4d  %4.0f%4.0f %6d%6d%6d%6d  %4d%4d%4d  %7d%7d%7d  %4d%4d%4d\n",
      currdatetime(), $vmstat_avg[0], $vmstat_avg[1],$vmstat_avg[2],
      $vmstat_avg[3]/1024/1024,$vmstat_avg[4]/1024/1024,
      $vmstat_avg[5],$vmstat_avg[6],$vmstat_avg[7],$vmstat_avg[8],$vmstat_avg[9],$vmstat_avg[10],$vmstat_avg[11],
      $vmstat_avg[12],$vmstat_avg[13],$vmstat_avg[14],
      $vmstat_avg[15],$vmstat_avg[16],$vmstat_avg[17] ) ;
  } elsif ( $osname eq "AIX" ) {
    printf(FH  $vmheader_AIX ) if $header_print eq "Y" ;
    printf(FH "%s%4d%4d  %4.0f%4.0f %6d%6d%6d%7d%7d%7d  %7d%7d%7d  %4d%4d%4d%4d\n",
      currdatetime(), $vmstat_avg[0], $vmstat_avg[1],
      $vmstat_avg[2*4.0/1024/1024.0],$vmstat_avg[3]*4.0/1024/1024.0,
      $vmstat_avg[4],$vmstat_avg[5],$vmstat_avg[6],   $vmstat_avg[7],$vmstat_avg[8],$vmstat_avg[9],
      $vmstat_avg[10],$vmstat_avg[11],$vmstat_avg[12],
      $vmstat_avg[13],$vmstat_avg[14],$vmstat_avg[16],$vmstat_avg[15] ) ;
  }
  $run_cnt = $run_cnt + 1 ;
  sleep 1 ;
}
 
 
sub currdate
{
  my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime() ;
  return( sprintf("%04d%02d%02d", $year+1900,$mon+1,$mday )  ) ;
}
 
sub currdatetime
{
  my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime() ;
  return( sprintf("%04d-%02d-%02d:%02d:%02d:%02d", $year+1900,$mon+1,$mday, $hour,$min,$sec)  ) ;
}