Linux::Info - API in Perl to recover information about the running Linux OS
use Linux::Info; # you can't use sysinfo like that! my $lxs = Linux::Info->new( cpustats => 1, procstats => 1, memstats => 1, pgswstats => 1, netstats => 1, sockstats => 1, diskstats => 1, diskusage => 1, loadavg => 1, filestats => 1, processes => 1, ); sleep 1; my $stat = $lxs->get;
Linux::Info is a fork from Sys::Statistics::Linux distribution.
Sys::Statistics::Linux is a front-end module and gather different linux system information like processor workload, memory usage, network and disk statistics and a lot more. Refer the documentation of the distribution modules to get more information about all possible statistics.
Sys::Statistics::Linux is a great distribution (and I used it a lot), but it was built to recover only Linux statistics when I was also looking for other additional information about the OS.
Linux::Info will provide additional information not available in Sys::Statistics::Linux, as general processor information and hopefully apply patches and suggestions not implemented in the original project.
Sys::Statistics::Linux is also more forgiving regarding compatibility with older perls interpreters, modules version that it depends on and even older OS. If you find that Linux::Info is not available to your old system, you should try it.
Linux::Info
Linux::Info has:
a more modern Perl 5 code;
doesn't use exec syscall to acquire information;
exec
provides additional information about the processors;
higher Kwalitee;
This distribution collects statistics by the virtual /proc filesystem (procfs) and is developed on the default vanilla kernel. It is tested on x86 hardware with the distributions RHEL, Fedora, Debian, Ubuntu, Asianux, Slackware, Mandriva and openSuSE (SLES on zSeries as well but a long time ago) on kernel versions 2.4 and/or 2.6. It's possible that it doesn't run on all linux distributions if some procfs features are deactivated or too much modified. As example the Linux kernel 2.4 can compiled with the option CONFIG_BLK_STATS what turn on or off block statistics for devices.
CONFIG_BLK_STATS
Note that if you try to install or run Linux::Info under virtual machines on guest systems that some statistics are not available, such as SockStats, PgSwStats and DiskStats. The reason is that not all /proc data are passed to the guests.
SockStats
PgSwStats
DiskStats
If the installation fails then try to force the installation with
cpan> force install Linux::Info
and notice which tests fails, because these statistics maybe not available on the virtual machine - sorry.
The statistics for CpuStats, ProcStats, PgSwStats, NetStats, DiskStats and Processes are deltas, for this reason it's necessary to initialize the statistics before the data can be prepared by get(). These statistics can be initialized with the methods new(), set() and init(). For any option that is set to 1, the statistics will be initialized by the call of new() or set(). The call of init() re-initialize all statistics that are set to 1 or 2. By the call of get() the initial statistics will be updated automatically. Please refer the section "METHODS" to get more information about the usage of new(), set(), init() and get().
CpuStats
ProcStats
NetStats
Processes
get()
new()
set()
init()
Another exigence is to sleep for a while - at least for one second - before the call of get() if you want to get useful statistics. The statistics for SysInfo, MemStats, SockStats, DiskUsage, LoadAVG and FileStats are no deltas. If you need only one of these information you don't need to sleep before the call of get().
sleep
SysInfo
MemStats
DiskUsage
LoadAVG
FileStats
The method get() prepares all requested statistics and returns the statistics as a Linux::Info::Compilation object. The initial statistics will be updated.
The Linux Programmer's Manual
http://www.kernel.org/doc/man-pages/online/pages/man5/proc.5.html
If you have questions or don't understand the sense of some statistics then take a look into this awesome documentation.
During the creation of new instances of Linux::Info, you can pass as parameters to the new method different statistics to collect. The statistics available are those listed on "DELTAS".
new
You can use the "DELTAS" by using their respective package names in lowercase. To activate the gathering of statistics you have to set the options by the call of new() or set(). In addition you can deactivate statistics with set().
The options must be set with one of the following values:
0 - deactivate statistics 1 - activate and init statistics 2 - activate statistics but don't init
In addition it's possible to pass a hash reference with options.
my $lxs = Linux::Info->new( processes => { init => 1, pids => [ 1, 2, 3 ] }, netstats => { init => 1, initfile => $file, }, );
Option initfile is useful if you want to store initial statistics on the filesystem.
initfile
my $lxs = Linux::Info->new( cpustats => { init => 1, initfile => '/tmp/cpustats.yml', }, diskstats => { init => 1, initfile => '/tmp/diskstats.yml', }, netstats => { init => 1, initfile => '/tmp/netstats.yml', }, pgswstats => { init => 1, initfile => '/tmp/pgswstats.yml', }, procstats => { init => 1, initfile => '/tmp/procstats.yml', }, );
Example:
use strict; use warnings; use Linux::Info; my $lxs = Linux::Info->new( pgswstats => { init => 1, initfile => '/tmp/pgswstats.yml' } ); $lxs->get(); # without to sleep
The initial statistics are stored to the temporary file:
#> cat /tmp/pgswstats.yml --- pgfault: 397040955 pgmajfault: 4611 pgpgin: 21531693 pgpgout: 49511043 pswpin: 8 pswpout: 272 time: 1236783534.9328
Every time you call the script the initial statistics are loaded/stored from/to the file. This could be helpful if you doesn't run it as daemon and if you want to calculate the average load of your system since the last call.
To get more information about the statistics refer the different modules of the distribution.
cpustats - Collect cpu statistics with Linux::Info::CpuStats. procstats - Collect process statistics with Linux::Info::ProcStats. memstats - Collect memory statistics with Linux::Info::MemStats. pgswstats - Collect paging and swapping statistics with Linux::Info::PgSwStats. netstats - Collect net statistics with Linux::Info::NetStats. sockstats - Collect socket statistics with Linux::Info::SockStats. diskstats - Collect disk statistics with Linux::Info::DiskStats. diskusage - Collect the disk usage with Linux::Info::DiskUsage. loadavg - Collect the load average with Linux::Info::LoadAVG. filestats - Collect inode statistics with Linux::Info::FileStats. processes - Collect process statistics with Linux::Info::Processes.
The options just described don't apply to Linux::Info::SysInfo since this module doesn't hold statistics from the OS. If you try to use it Linux::Info will die with an error message. In order to use Linux::Info::SysInfo, just create an instance of it directly. See Linux::Info::SysInfo for information on that.
die
Call new() to create a new Linux::Info object. You can call new() with options. This options would be passed to the method set().
Without options
my $lxs = Linux::Info->new();
Or with options
my $lxs = Linux::Info->new( cpustats => 1 );
Would do nothing
my $lxs = Linux::Info->new( cpustats => 0 );
It's possible to call new() with a hash reference of options.
my %options = ( cpustats => 1, memstats => 1 ); my $lxs = Linux::Info->new(\%options);
Call set() to activate or deactivate options.
The following example would call new() and initialize Linux::Info::CpuStats and delete the object of Linux::Info::SysInfo.
Linux::Info::CpuStats
Linux::Info::SysInfo
$lxs->set( processes => 0, # deactivate this statistic pgswstats => 1, # activate the statistic and calls new() and init() if necessary netstats => 2, # activate the statistic and call new() if necessary but not init() );
It's possible to call set() with a hash reference of options.
my %options = ( cpustats => 2, memstats => 2 ); $lxs->set(\%options);
Call get() to get the collected statistics. get() returns a Linux::Info::Compilation object.
my $lxs = Linux::Info->new(\%options); sleep(1); my $stat = $lxs->get();
Or you can pass the time to sleep with the call of get().
my $stat = $lxs->get($time_to_sleep);
Now the statistcs are available with
$stat->cpustats # or $stat->{cpustats}
Take a look to the documentation of Linux::Info::Compilation for more information.
The call of init() initiate all activated statistics that are necessary for deltas. That could be helpful if your script runs in a endless loop with a high sleep interval. Don't forget that if you call get() that the statistics are deltas since the last time they were initiated.
The following example would calculate average statistics for 30 minutes:
# initiate cpustats my $lxs = Linux::Info->new( cpustats => 1 ); while ( 1 ) { sleep(1800); my $stat = $lxs->get; }
If you just want a current snapshot of the system each 30 minutes and not the average then the following example would be better for you:
# do not initiate cpustats my $lxs = Linux::Info->new( cpustats => 2 ); while ( 1 ) { $lxs->init; # init the statistics my $stat = $lxs->get(1); # get the statistics sleep(1800); # sleep until the next run }
If you want to write a simple command line utility that prints the current workload to the screen then you can use something like this:
my @order = qw(user system iowait idle nice irq softirq total); printf "%-20s%8s%8s%8s%8s%8s%8s%8s%8s\n", 'time', @order; my $lxs = Linux::Info->new( cpustats => 1 ); while ( 1 ){ my $cpu = $lxs->get(1)->cpustats; my $time = $lxs->gettime; printf "%-20s%8s%8s%8s%8s%8s%8s%8s%8s\n", $time, @{$cpu->{cpu}}{@order}; }
Call settime() to define a POSIX formatted time stamp, generated with localtime().
settime()
$lxs->settime('%Y/%m/%d %H:%M:%S');
To get more information about the formats take a look at strftime() of POSIX.pm or the manpage strftime(3).
strftime()
strftime(3)
gettime() returns a POSIX formatted time stamp, @foo in list and $bar in scalar context. If the time format isn't set then the default format "%Y-%m-%d %H:%M:%S" will be set automatically. You can also set a time format with gettime().
gettime()
my $date_time = $lxs->gettime;
Or
my ($date, $time) = $lxs->gettime();
my ($date, $time) = $lxs->gettime('%Y/%m/%d %H:%M:%S');
A very simple perl script could looks like this:
use strict; use warnings; use Linux::Info; my $lxs = Linux::Info->new( cpustats => 1 ); sleep(1); my $stat = $lxs->get; my $cpu = $stat->cpustats->{cpu}; print "Statistics for CpuStats (all)\n"; print " user $cpu->{user}\n"; print " nice $cpu->{nice}\n"; print " system $cpu->{system}\n"; print " idle $cpu->{idle}\n"; print " ioWait $cpu->{iowait}\n"; print " total $cpu->{total}\n";
Set and get a time stamp:
use strict; use warnings; use Linux::Info; my $lxs = Linux::Info->new(); $lxs->settime('%Y/%m/%d %H:%M:%S'); print $lxs->gettime, "\n";
If you want to know how the data structure looks like you can use Data::Dumper to check it:
Data::Dumper
use strict; use warnings; use Linux::Info; use Data::Dumper; my $lxs = Linux::Info->new( cpustats => 1 ); sleep(1); my $stat = $lxs->get; print Dumper($stat);
How to get the top 5 processes with the highest cpu workload:
use strict; use warnings; use Linux::Info; my $lxs = Linux::Info->new( processes => 1 ); sleep(1); my $stat = $lxs->get; my @top5 = $stat->pstop( ttime => 5 );
Nothing.
The Sys::Statistics::Linux distribution, which is base of Linux::Info
The project website at https://github.com/glasswalk3r/Linux-Info.
Alceu Rodrigues de Freitas Junior, <arfreitas@cpan.org>
This software is copyright (c) 2015 of Alceu Rodrigues de Freitas Junior, <arfreitas@cpan.org>
This file is part of Linux Info project.
Linux Info is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
Linux Info is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with Linux Info. If not, see <http://www.gnu.org/licenses/>.
To install Linux::Info, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Linux::Info
CPAN shell
perl -MCPAN -e shell install Linux::Info
For more information on module installation, please visit the detailed CPAN module installation guide.