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