/ 
Parse-Netstat-0.03
River stage one • 3 direct dependents • 9 total dependents
/ Parse::Netstat

NAME

Parse::Netstat - Parse the output of Unix "netstat" command

VERSION

version 0.03

SYNOPSIS

use Parse::Netstat qw(parse_netstat);

my $output = `netstat -anp`;
my $res = parse_netstat output => $output;

Sample result:

[
 200,
 "OK",
 {
   active_conns => [
     {
       foreign_host => "0.0.0.0",
       foreign_port => "*",
       local_host => "127.0.0.1",
       local_port => 1027,
       proto => "tcp",
       recvq => 0,
       sendq => 0,
       state => "LISTEN",
     },
     ...
     {
       foreign_host => "0.0.0.0",
       foreign_port => "*",
       local_host => "192.168.0.103",
       local_port => 56668,
       proto => "udp",
       recvq => 0,
       sendq => 0,
     },
     ...
     {
       flags   => "ACC",
       inode   => 15631,
       path    => "\@/tmp/dbus-VS3SLhDMEu",
       pid     => 4513,
       program => "dbus-daemon",
       proto   => "unix",
       refcnt  => 2,
       state   => "LISTENING",
       type    => "STREAM",
     },
   ],
 }
]

DESCRIPTION

This module provides parse_netstat().

FUNCTIONS

None are exported by default, but they are exportable.

parse_netstat(%args) -> [STATUS_CODE, ERR_MSG, RESULT]

Parse the output of Unix "netstat" command.

Returns a 3-element arrayref. STATUS_CODE is 200 on success, or an error code between 3xx-5xx (just like in HTTP). ERR_MSG is a string containing error message, RESULT is the actual result.

Arguments (* denotes required arguments):

  • output* => str

    Output of netstat command.

    This function only parses program's output. You need to invoke "netstat" on your own.

  • tcp => bool (default 1)

    Whether to parse tcp connections.

  • udp => bool (default 1)

    Whether to parse udp connections.

  • unix => bool (default 1)

    Whether to parse unix connections.

SEE ALSO

AUTHOR

Steven Haryanto <stevenharyanto@gmail.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Steven Haryanto.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.