1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/usr/bin/perl
delete @ENV{qw(PATH)};
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/local/sbin';
#
# Get the OS name
#
my $osname = "$^O";
if ($osname =~ 'freebsd') {
# FreeBSD have other parameters
$dfcmd="df -k -P $ARGV[0] | grep -v Filesystem |";
} else {
$dfcmd="df --block-size=1024 -P $ARGV[0] | grep -v Filesystem |";
}
open(PROCESS, $dfcmd);
foreach (<PROCESS>) {
if ($_ =~ /($ARGV[0])(.* )(.*[0-9])(.* )(.*[0-9])(.* )(.*[0-9])(.* )(.*[0-9])%(.* )/) {
print "megabytes:$7 percent:$9";
}
}
close(PROCESS);
|
