mabbacc.com

#!/usr/bin/perl
use strict;
use warnings;

open(INFIL,"< /proc/stat") or die("Unable To Open /proc/stat: $!\n");
# while()
{
     my @loads;
     my $cpuload = 0;
     for (0,1)
     {
       my $in = <INFIL>;
       (warn "something wrong!\n"), next unless $in =~ /^cpu\b/;
       push @loads,  ($in =~ /\d+/g)[0..2];
       seek INFIL, 0, 0;
       select (undef, undef, undef, 1) unless $_;
     }
     redo unless defined $loads[0];
     for (0..2) { $cpuload += ($loads[$_+3] - $loads[$_]); }
         print "$cpuload\n";
}
close(INFIL);

#!/usr/bin/perl

use strict;
use warnings;

# warning level
my $warning_level = 50;

# email setup
my $to = '나의 이메일';
my $from = '나의 이메일';
my $password = '나의 패스워드';

my $subject = 'LOW CPU';

# get CPU
my ($cpu_util) = `./cpu_checker.pl`;

#compare
if ( $cpu_util < $warning_level )
{
  my $out = sprintf ( "TRUE mysqld indexing work %0.2f%% < %0.2f%%\n", $cpu_util, $warning_level);
  # TEST - print $out;

} else {
  my $out = sprintf ( "FALSE mysqld indexing work %0.2f%% < %0.2f%%\n", $cpu_util, $warning_level);
  # TEST - print $out;
}
  open (MAIL, "|/usr/bin/sendEmail -f $from -t $to -s smtp.gmail.com -o tls=yes -xu $from -xp $password -u \"$subject\" -m \"$out\" ");
  close(MAIL);

root@Android-server:~# crontab -l
# m h  dom mon dow   command
@hourly /root/cpu_monitor.pl

root@Android-server:~#