加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 大数据 > 正文

Perl 采集内存

发布时间:2020-12-15 23:47:54 所属栏目:大数据 来源:网络整理
导读:#!/usr/bin/perluse HTTP::Date qw(time2iso str2time time2iso time2isoz);use strict;use Sys::Hostname;use DBI;my $hostip='10.5.129.243';my $dbName = 'dwh1'; my $dbUser = 'test'; my $dbUserPass = 'test'; my $dbh = DBI-connect("dbi:Oracle:$dbN
#!/usr/bin/perl
use HTTP::Date qw(time2iso str2time time2iso time2isoz);
use strict;
use Sys::Hostname;
use DBI;
my $hostip='10.5.129.243';
my $dbName = 'dwh1';  
my $dbUser = 'test';  
my $dbUserPass = 'test';  
my $dbh = DBI->connect("dbi:Oracle:$dbName",$dbUser,$dbUserPass) or die "can't connect to database ";
my $cpu_trigger=1.6;
my $disk_trigger=75;
my $memory_trigger=40;
my $io_trigger=70;
my $cpu_event;
my $memory_event;
my $red="e[1;31m";
my $green="e[1;32m";
my $yellow="e[1;33m";
my $normal="e[0m";
sub section() {
    my $section=shift;
    print ">>>>>$green $section $normal  n";
}
sub memory() { 
    §ion("MEMORY");
    my @array=`free -m | grep "Mem:"`;
foreach my $i (@array) {
    my ($total,$usage,$free);
        chomp $i;
        $i =~ s/(^s+|s+$)//g;
        $i =~ s/s+/ /g;
##抛弃第一个元素
        (undef,$total,$free)=split /s+/,$i;
my $CurrTime = time2iso(time()); 
$dbh->do("insert into mem_info values ('$hostip','$total','$usage','$free',to_date('$CurrTime','YYYY-MM-DD hh24:mi:ss'))") or die($DBI::errstr);
}
}
memory

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读