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

    use Sys::Statistics::Linux::CpuStats;

    my $lxs = Sys::Statistics::Linux::CpuStats->new;
    $lxs->init;
    sleep 1;
    my $stats = $lxs->get;

Or

my $lxs = Sys::Statistics::Linux::CpuStats->new(initfile => $file); $lxs->init; my $stats = $lxs->get;

Sys::Statistics::Linux::CpuStats gathers cpu statistics from the virtual /proc filesystem (procfs).

For more information read the documentation of the front-end module Sys::Statistics::Linux.

Generated by /proc/stat for each cpu (cpu0, cpu1 ...). cpu without a number is the summary.

user - Percentage of CPU utilization at the user level. nice - Percentage of CPU utilization at the user level with nice priority. system - Percentage of CPU utilization at the system level. idle - Percentage of time the CPU is in idle state. total - Total percentage of CPU utilization.

Statistics with kernels >= 2.6.

iowait - Percentage of time the CPU is in idle state because an I/O operation is waiting to complete. irq - Percentage of time the CPU is servicing interrupts. softirq - Percentage of time the CPU is servicing softirqs. steal - Percentage of stolen CPU time, which is the time spent in other operating systems when running in a virtualized environment (>=2.6.11).

\fInew()\fP

Call \*(C`new()\*(C' to create a new object.

my $lxs = Sys::Statistics::Linux::CpuStats->new;

Maybe you want to store/load the initial statistics to/from a file:

my $lxs = Sys::Statistics::Linux::CpuStats->new(initfile => '/tmp/cpustats.yml');

If you set \*(C`initfile\*(C' it's not necessary to call sleep before \*(C`get()\*(C'.

It's also possible to set the path to the proc filesystem.

Sys::Statistics::Linux::CpuStats->new( files => { # This is the default path => '/proc' stat => 'stat', } );

\fIinit()\fP

Call \*(C`init()\*(C' to initialize the statistics.

$lxs->init;

\fIget()\fP

Call \*(C`get()\*(C' to get the statistics. \*(C`get()\*(C' returns the statistics as a hash reference.

my $stats = $lxs->get;

\fIraw()\fP

Get raw values.

No exports.

proc\|(5)

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.