Perl 采集磁盘信息

概述#!/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 = 'orcl'; my $dbUser = 'test'; my $dbUserPass

#!/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 = 'orcl';  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 disk_space() {    §ion("disK SPACE");    my $line;    my @array=`df -PTh | sed '1d'`;    foreach my $i (@array) {    my ($fs,$type,$size,$used,$avail,$usage,$mounted);        chomp $i;        $i =~ s/(^\s+|\s+$)//g;        $i =~ s/\s+/ /g;        ($fs,$mounted)=split /\s+/,$i;my $CurrTime = time2iso(time()); $dbh->do("insert into cpu_info values ('$hostip','$fs','$type','$size','$used','$avail','$usage','$mounted',to_date('$CurrTime','YYYY-MM-DD hh24:mi:ss'))") or dIE($DBI::errstr);        substr($usage,-1,1)="";        if ($usage > $disk_trigger ) {            printf("%-36s%-6s%-6s%-6s%-6s${red}%-6s${normal}%s\n","$fs","$usage%",$mounted);        } else {            printf("%-36s%-6s%-6s%-6s%-6s%-6s%s\n",$fs,$mounted);        }    }    print "-" x 80 ."\n";$dbh->disconnect();}disk_space

总结

以上是内存溢出为你收集整理的Perl 采集磁盘信息全部内容，希望文章能够帮你解决Perl 采集磁盘信息所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。