NAME

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

VERSION

       version 0.04

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().

SEE ALSO

FUNCTIONS

   parse_netstat(%args) -> [status, msg, result, meta]
       Parse the output of Unix "netstat" command.

       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.

       Return value:

       Returns an enveloped result (an array). First element (status) is an integer containing
       HTTP status code (200 means OK, 4xx caller error, 5xx function error). Second element
       (msg) is a string containing error message, or 'OK' if status is 200. Third element
       (result) is optional, the actual result. Fourth element (meta) is called result metadata
       and is optional, a hash that contains extra information.

AUTHOR

       Steven Haryanto <stevenharyanto@gmail.com>

COPYRIGHT AND LICENSE

       This software is copyright (c) 2012 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.