/usr/share/perl5/Sys/Statistics/Linux/SockStats.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 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;
|