NAME¶
Sys::Statistics::Linux::DiskStats - Collect linux disk statistics.
SYNOPSIS¶
use Sys::Statistics::Linux::DiskStats;
my $lxs = Sys::Statistics::Linux::DiskStats->new;
$lxs->init;
sleep 1;
my $stat = $lxs->get;
Or
my $lxs = Sys::Statistics::Linux::DiskStats->new(initfile => $file);
$lxs->init;
my $stat = $lxs->get;
DESCRIPTION¶
Sys::Statistics::Linux::DiskStats gathers disk statistics from the virtual
/proc filesystem (procfs).
For more information read the documentation of the front-end module
Sys::Statistics::Linux.
DISK STATISTICS¶
Generated by
/proc/diskstats or
/proc/partitions.
major - The mayor number of the disk
minor - The minor number of the disk
rdreq - Number of read requests that were made to physical disk per second.
rdbyt - Number of bytes that were read from physical disk per second.
wrtreq - Number of write requests that were made to physical disk per second.
wrtbyt - Number of bytes that were written to physical disk per second.
ttreq - Total number of requests were made from/to physical disk per second.
ttbyt - Total number of bytes transmitted from/to physical disk per second.
METHODS¶
new()¶
Call "new()" to create a new object.
my $lxs = Sys::Statistics::Linux::DiskStats->new;
Maybe you want to store/load the initial statistics to/from a file:
my $lxs = Sys::Statistics::Linux::DiskStats->new(initfile => '/tmp/diskstats.yml');
If you set "initfile" it's not necessary to call sleep before
"get()".
It's also possible to set the path to the proc filesystem.
Sys::Statistics::Linux::DiskStats->new(
files => {
# This is the default
path => '/proc',
diskstats => 'diskstats',
partitions => 'partitions',
}
);
init()¶
Call "init()" to initialize the statistics.
$lxs->init;
get()¶
Call "get()" to get the statistics. "get()" returns the
statistics as a hash reference.
my $stat = $lxs->get;
raw()¶
Get raw values.
EXPORTS¶
No exports.
SEE ALSO¶
proc(5)
REPORTING BUGS¶
Please report all bugs to <jschulz.cpan(at)bloonix.de>.
AUTHOR¶
Jonny Schulz <jschulz.cpan(at)bloonix.de>.
COPYRIGHT¶
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.