blob: 9e851740114183d8c03986ca8779b64c11effbde (
plain) (
blame)
1
2
3
4
5
6
7
8
9
|
--- scripts/diskfree.pl.orig 2017-06-01 00:09:48 UTC
+++ scripts/diskfree.pl
@@ -1,5 +1,5 @@
#!/usr/local/bin/perl
-open(PROCESS,"df --block-size=1024 -P $ARGV[0] | grep -v Filesystem |");
+open(PROCESS,"df -k $ARGV[0] | grep -v Filesystem |");
foreach (<PROCESS>) {
if ($_ =~ /($ARGV[0])(.* )(.*[0-9])(.* )(.*[0-9])(.* )(.*[0-9])(.* )(.*[0-9])%(.* )/) {
print "megabytes:$7 percent:$9";
|
