Files
cacti/scripts/diskfree.pl
T
Tony Roman 6c0cca5942 bug#0000656: Perl scripts using back ticks is not portable
git-svn-id: svn+ssh://repo.cacti.net/var/data/svnroot/cacti/branches/BRANCH_0_8_6/cacti@3439 860744bd-22fc-0310-8c96-e9fe5004b5ca
2005-12-21 02:56:49 +00:00

9 lines
256 B
Perl

#!/usr/bin/perl
open(PROCESS,"df --block-size=1024 -P $ARGV[0] | grep -v Filesystem |");
foreach (<PROCESS>) {
if ($_ =~ /($ARGV[0])(.* )(.*[0-9])(.* )(.*[0-9])(.* )(.*[0-9])(.* )(.*[0-9])%(.* )/) {
print "megabytes:$7 percent:$9";
}
}
close(PROCESS);