Collect linux disk usage.
use Sys::Statistics::Linux::DiskUsage; my $lxs = new Sys::Statistics::Linux::DiskUsage; my $stat = $lxs->get;
Sys::Statistics::Linux::DiskUsage gathers the disk usage with the command \*(C`df\*(C'.
For more information read the documentation of the front-end module Sys::Statistics::Linux.
Generated by /bin/df -kP.
total - The total size of the disk. usage - The used disk space in kilobytes. free - The free disk space in kilobytes. usageper - The used disk space in percent. mountpoint - The moint point of the disk.
If you want to change the path or arguments for \*(C`df\*(C' you can use the following variables...
$Sys::Statistics::Linux::DiskUsage::DF_PATH = '/bin'; $Sys::Statistics::Linux::DiskUsage::DF_CMD = 'df -akP';
Example:
use Sys::Statistics::Linux; use Sys::Statistics::Linux::DiskUsage; $Sys::Statistics::Linux::DiskUsage::DF_CMD = 'df -akP';
my $sys = Sys::Statistics::Linux->new(diskusage => 1); my $disk = $sys->get;
Call \*(C`new()\*(C' to create a new object.
my $lxs = Sys::Statistics::Linux::DiskUsage->new;
It's possible to set the path to df.
Sys::Statistics::Linux::DiskUsage->new( cmd => { # This is the default path => '/bin', df => 'df -kP 2>/dev/null', } );
Call \*(C`get()\*(C' to get the statistics. \*(C`get()\*(C' returns the statistics as a hash reference.
my $stat = $lxs->get;
No exports.
df\|(1)
Please report all bugs to <jschulz.cpan(at)bloonix.de>.
Jonny Schulz <jschulz.cpan(at)bloonix.de>.
Copyright (c) 2006, 2007 by Jonny Schulz. All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.