Regex to parse netstat output

Select or download this

#!/usr/contrib/bin/perl -w

$portnum=$ARGV[0];
...
      }
   }
}

Select or download this

131.228.132.245.9494 131.228.132.159.41713 24820      0  8760      0 T
+IME_WAIT
131.228.132.245.94 131.228.132.159.41703 24820      0  8760      0 TIM
+E_WAIT

Select or download this

root@toybox: perl portstat.pl 94
228.132.245.9494 TIME_WAIT

Select or download this

root@toybox: perl portstat.pl 9494
131.228.132.245.9494 TIME_WAIT

Select or download this

root@toybox: perl portstat.pl 9494 
131.228.132.245.94 TIME_WAIT

Select Code to Download