Files
cacti/scripts/diskfree.pl
T
Ian Berry 87de6aa496 making scripts compliment with 0.8 output structure
git-svn-id: svn+ssh://repo.cacti.net/var/data/svnroot/cacti/trunk/cacti@535 860744bd-22fc-0310-8c96-e9fe5004b5ca
2003-02-17 08:39:38 +00:00

7 lines
198 B
Perl

#!/usr/bin/perl
$ret = `df --block-size=1024 $ARGV[0] | grep -v Filesystem`;
$ret =~ s/($ARGV[0])(.* )(.*[0-9])(.* )(.*[0-9])(.* )(.*[0-9])(.* )(.*[0-9]%)(.* )//;
print "megabytes:$7 percent:$9";