Help for this page

Select Code to Download


  1. or download this
    my ($prot,$recv_q,$send_q,$laddr,$lport,$eaddr,$eport,$status,$syn) =
    map {split ':'} split " ";
  2. or download this
    open NETSTAT, '-|', '/bin/netstat', '-na' or die $!;
while (<NETSTAT>) {
...
        if $sockdata[7] =~ /syn/i;
    printf "Local: %s:%s - External: %s:%s - %s$/", @sockdata[3..7];
}