#!/usr/bin/perl
# 指定したパスを含むパーティションの使用状況を調べる。
use strict;
use warnings;
use utf8;
use Filesys::Df;
use Number::Format qw(:subs);
my $path = shift or die("usage: getDiskUsage <path>\n");
my $refDf = df($path, 1) or die("$!\n");
foreach my $key (sort(keys(%{$refDf}))){
print $key . ":\t" . format_bytes($refDf->{$key}) . "\n";
}
# EOF
sub getDiskUsage
{
my $path = shift || '/';
my $result = `df -h $path`;
$result =~ /(\d+)%\s+\//;
return $1 || -1;
}
Last edited by TakeAsh, 2018-09-01 01:15:27