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 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |