Sys::Statistics::Linux::DiskStats(3pm)

Sys::Statistics::Linux::DiskStats3pm

Collect linux disk statistics.

Usage

    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;

Overview

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.

Releases

8 releases since Debian 6.0 (Squeeze); the text changed 4 times.

  1. 6.0
  2. 7–8
  3. 9
  4. 10–11
  5. 12–13

Reporting bugs

Please report all bugs to <jschulz.cpan(at)bloonix.de>.

Author

Jonny Schulz <jschulz.cpan(at)bloonix.de>.

From libsys-statistics-linux-perl 0.66-5 in Debian 13 (Trixie). Parsed by carta from the page's man source.