/usr/share/perl5/Sys/Statistics/Linux/LoadAVG.pm is in libsys-statistics-linux-perl 0.66-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 | =head1 NAME
Sys::Statistics::Linux::LoadAVG - Collect linux load average statistics.
=head1 SYNOPSIS
use Sys::Statistics::Linux::LoadAVG;
my $lxs = Sys::Statistics::Linux::LoadAVG->new;
my $stat = $lxs->get;
=head1 DESCRIPTION
Sys::Statistics::Linux::LoadAVG gathers the load average from the virtual F</proc> filesystem (procfs).
For more information read the documentation of the front-end module L<Sys::Statistics::Linux>.
=head1 LOAD AVERAGE STATISTICS
Generated by F</proc/loadavg>.
avg_1 - The average processor workload of the last minute.
avg_5 - The average processor workload of the last five minutes.
avg_15 - The average processor workload of the last fifteen minutes.
=head1 METHODS
=head2 new()
Call C<new()> to create a new object.
my $lxs = Sys::Statistics::Linux::LoadAVG->new;
It's possible to set the path to the proc filesystem.
Sys::Statistics::Linux::LoadAVG->new(
files => {
# This is the default
path => '/proc',
loadavg => 'loadavg',
}
);
=head2 get()
Call C<get()> to get the statistics. C<get()> returns the statistics as a hash reference.
my $stat = $lxs->get;
=head1 EXPORTS
No exports.
=head1 SEE ALSO
B<proc(5)>
=head1 REPORTING BUGS
Please report all bugs to <jschulz.cpan(at)bloonix.de>.
=head1 AUTHOR
Jonny Schulz <jschulz.cpan(at)bloonix.de>.
=head1 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.
=cut
package Sys::Statistics::Linux::LoadAVG;
use strict;
use warnings;
use Carp qw(croak);
our $VERSION = '0.08';
sub new {
my $class = shift;
my $opts = ref($_[0]) ? shift : {@_};
my %self = (
files => {
path => '/proc',
loadavg => 'loadavg',
}
);
foreach my $file (keys %{ $opts->{files} }) {
$self{files}{$file} = $opts->{files}->{$file};
}
return bless \%self, $class;
}
sub get {
my $self = shift;
my $class = ref $self;
my $file = $self->{files};
my %lavg = ();
my $filename = $file->{path} ? "$file->{path}/$file->{loadavg}" : $file->{loadavg};
open my $fh, '<', $filename or croak "$class: unable to open $filename ($!)";
( $lavg{avg_1}
, $lavg{avg_5}
, $lavg{avg_15}
) = (split /\s+/, <$fh>)[0..2];
close($fh);
return \%lavg;
}
1;
|