The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

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.