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
119
120
121
122
123
124
125
126
127
128
129
|
=head1 NAME
Sys::Statistics::Linux::SockStats - Collect linux socket statistics.
=head1 SYNOPSIS
use Sys::Statistics::Linux::SockStats;
my $lxs = Sys::Statistics::Linux::SockStats->new;
my $stat = $lxs->get;
=head1 DESCRIPTION
Sys::Statistics::Linux::SockStats gathers socket statistics from the virtual F</proc> filesystem (procfs).
For more information read the documentation of the front-end module L<Sys::Statistics::Linux>.
=head1 SOCKET STATISTICS
Generated by F</proc/net/sockstat>.
used - Total number of used sockets.
tcp - Number of tcp sockets in use.
udp - Number of udp sockets in use.
raw - Number of raw sockets in use.
ipfrag - Number of ip fragments in use (only available by kernels > 2.2).
=head1 METHODS
=head2 new()
Call C<new()> to create a new object.
my $lxs = Sys::Statistics::Linux::SockStats->new;
It's possible to set the path to the proc filesystem.
Sys::Statistics::Linux::SockStats->new(
files => {
# This is the default
path => '/proc',
sockstat => 'net/sockstat',
}
);
=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::SockStats;
use strict;
use warnings;
use Carp qw(croak);
our $VERSION = '0.09';
sub new {
my $class = shift;
my $opts = ref($_[0]) ? shift : {@_};
my %self = (
files => {
path => '/proc',
sockstat => 'net/sockstat',
}
);
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 %socks = ();
my $filename = $file->{path} ? "$file->{path}/$file->{sockstat}" : $file->{sockstat};
open my $fh, '<', $filename or croak "$class: unable to open $filename ($!)";
while (my $line = <$fh>) {
if ($line =~ /sockets: used (\d+)/) {
$socks{used} = $1;
} elsif ($line =~ /TCP: inuse (\d+)/) {
$socks{tcp} = $1;
} elsif ($line =~ /UDP: inuse (\d+)/) {
$socks{udp} = $1;
} elsif ($line =~ /RAW: inuse (\d+)/) {
$socks{raw} = $1;
} elsif ($line =~ /FRAG: inuse (\d+)/) {
$socks{ipfrag} = $1;
}
}
close($fh);
return \%socks;
}
1;
|
