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

VERSION
    version 0.02

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.