Example 15-2. examples/applications/diskspace.pl
#!/usr/bin/perl
use strict;
use warnings;
use Filesys::Df qw(df);
my $df = df("/", 1024 * 1024 * 1024);
print "Percent Full: $df->{per}\n";
print "Superuser Blocks: $df->{blocks}\n";
print "Superuser Blocks Available: $df->{bfree}\n";
print "User Blocks: $df->{user_blocks}\n";
print "User Blocks Available: $df->{bavail}\n";
print "Blocks Used: $df->{used}\n";
| Prev | Home (Copyright Gabor Szabo) Perl Training Israel | Next |
| Create Unix user account | Up | Reporting diskspace usage on the mail server |