1Sys::Statistics::Linux:U:sCeormpCiolnattriiobnu(t3e)d PeSryls:D:oSctuamteinsttaitciso:n:Linux::Compilation(3)
2
6 Sys::Statistics::Linux::Compilation - Statistics compilation.
7
9 use Sys::Statistics::Linux;
10 my $lxs = Sys::Statistics::Linux->new( loadavg => 1 );
12 my $stat = $lxs->get;
13 foreach my $key ($stat->loadavg) {
15 print $key, " ", $stat->loadavg($key), "\n";
16 }
17 # or
19 use Sys::Statistics::Linux::LoadAVG;
21 use Sys::Statistics::Linux::Compilation;
22 my $lxs = Sys::Statistics::Linux::LoadAVG->new();
24 my $load = $lxs->get;
25 my $stat = Sys::Statistics::Linux::Compilation->new({ loadavg => $load });
26 foreach my $key ($stat->loadavg) {
28 print $key, " ", $stat->loadavg($key), "\n";
29 }
30 # or
32 foreach my $key ($stat->loadavg) {
34 print $key, " ", $stat->loadavg->{$key}, "\n";
35 }
36
38 This module provides different methods to access and filter the
39 statistics compilation.
40
42 new()
43 Create a new "Sys::Statistics::Linux::Compilation" object. This creator
44 is only useful if you don't call "get()" of "Sys::Statistics::Linux".
45 You can create a new object with:
46 my $lxs = Sys::Statistics::Linux::LoadAVG->new();
48 my $load = $lxs->get;
49 my $stat = Sys::Statistics::Linux::Compilation->new({ loadavg => $load });
50 Statistic methods
52 sysinfo()
53 cpustats()
54 procstats()
55 memstats()
56 pgswstats()
57 netstats()
58 netinfo()
59 "netinfo()" provides raw data - no deltas.
60 sockstats()
62 diskstats()
63 diskusage()
64 loadavg()
65 filestats()
66 processes()
67 All methods returns the statistics as a hash reference in scalar
69 context. In list all methods returns the first level keys of the
70 statistics. Example:
71 my $net = $stat->netstats; # netstats as a hash reference
73 my @dev = $stat->netstats; # the devices eth0, eth1, ...
74 my $eth0 = $stat->netstats('eth0'); # eth0 statistics as a hash reference
75 my @keys = $stat->netstats('eth0'); # the statistic keys
76 my @vals = $stat->netstats('eth0', @keys); # the values for the passed device and @keys
77 my $val = $stat->netstats('eth0', $key); # the value for the passed device and key
78 Sorted ...
80 my @dev = sort $stat->netstats;
82 my @keys = sort $stat->netstats('eth0');
83 pstop()
85 This method is looking for top processes and returns a sorted list of
86 PIDs as an array or array reference depending on the context. It
87 expected two values: a key name and the number of top processes to
88 return.
89 As example you want to get the top 5 processes with the highest cpu
91 usage:
92 my @top5 = $stat->pstop( ttime => 5 );
94 # or as a reference
95 my $top5 = $stat->pstop( ttime => 5 );
96 If you want to get all processes:
98 my @top_all = $stat->pstop( ttime => $FALSE );
100 # or just
101 my @top_all = $stat->pstop( 'ttime' );
102 search(), psfind()
104 Both methods provides a simple scan engine to find special statistics.
105 Both methods except a filter as a hash reference. It's possible to pass
106 the statistics as second argument if the data is not stored in the
107 object.
108 The method "search()" scans for statistics and rebuilds the hash tree
110 until that keys that matched your filter and returns the hits as a hash
111 reference.
112 my $hits = $stat->search({
114 processes => {
115 cmd => qr/\[su\]/,
116 owner => qr/root/
117 },
118 cpustats => {
119 idle => 'lt:10',
120 iowait => 'gt:10'
121 },
122 diskusage => {
123 '/dev/sda1' => {
124 usageper => 'gt:80'
125 }
126 }
127 });
128 This would return the following matches:
130 * processes with the command "[su]"
132 * processes with the owner "root"
133 * all cpu where "idle" is less than 50
134 * all cpu where "iowait" is grather than 10
135 * only disk '/dev/sda1' if "usageper" is grather than 80
136 The method "psfind()" scans for processes only and returns a array
138 reference with all process IDs that matched the filter. Example:
139 my $pids = $stat->psfind({ cmd => qr/init/, owner => 'eq:apache' });
141 This would return the following process ids:
143 * processes that matched the command "init"
145 * processes with the owner "apache"
146 There are different match operators available:
148 gt - grather than
150 lt - less than
151 eq - is equal
152 ne - is not equal
153 Notation examples:
155 gt:50
157 lt:50
158 eq:50
159 ne:50
160 Both argumnents have to be set as a hash reference.
162 Note: the operators < > = ! are not available any more. It's possible
164 that in further releases could be different changes for "search()" and
165 "psfind()". So please take a look to the documentation if you use it.
166
168 No exports.
169
171 * Are there any wishs from your side? Send me a mail!
172
174 Please report all bugs to <jschulz.cpan(at)bloonix.de>.
175
177 Jonny Schulz <jschulz.cpan(at)bloonix.de>.
178 Thanks to Moritz Lenz for his suggestion for the name of this module.
180
182 Copyright (c) 2006, 2007 by Jonny Schulz. All rights reserved.
183 This program is free software; you can redistribute it and/or modify it
185 under the same terms as Perl itself.
186perl v5.12.2 2010-12S-y1s4::Statistics::Linux::Compilation(3)