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