寫作意圖：
Linux系統自帶的netstat在很多時候抓信息會發現耗CPU很高，特別是在做一些監控系統的時候，發現如果使用了netstat，監控系統本身會造成系統負載比較高，因此試著用perl寫下，time測試比自帶的netstat更快更節省資源，歡迎批評，呵呵。
#!/usr/bin/perl
# Written by FinalBSD at 2008-11-20.
# The netstat original written by C
# is expensive to me, so this born.
# As long as you retain this notice you
# can do whatever you want with this stuff.
# If we meet some day, and you think
# this stuff is worth it, you can
# buy me a beer in return.
use strict;
use warnings;
use Getopt::Std;
my $tcp = "/proc/net/tcp";
my $tcp6 = "/proc/net/tcp6";
my $route = "/proc/net/route";
my @tcpState = (
"NULL",
"ESTABLISHED" ,
"SYN_SENT",
"SYN_RECV",
"FIN_WAIT1",
"FIN_WAIT2",
"TIME_WAIT",
"CLOSE",
"CLOSE_WAIT",
"LAST_ACK",
"LISTEN",
"CLOSING"
);
my @routeType = (
"NULL",
"U", # UP
"G", # Gateway
"UG" # UP & Gateway
);
my %opts;
getopts('nhatsrl', \%opts);
if($opts{h}) {
&usage();
}
if($opts{r}) {
&route_info($route);
exit;
}
&tcp_info($tcp);
&tcp_info($tcp6);
###################### FUNCTION DEFINITION ###########################
#############################
# Get statistics Information
############################
sub tcp_info($) {
my $file = shift;
open(FH, $file) or die("$!");
my $format = "%-30s %-30s %-10s\n";
printf($format," Local Address"," Foreign Address","State");
while(<FH>) {
next if /local_address/;
my @data = split;
my $state = $tcpState[hex($data[3])];
# Show listening Sockets.
if($opts{l}){
printf($format, &hextoint($data[1]), &hextoint($data[2]), $state) if $state =~ /LIST/;
} else {
printf($format, &hextoint($data[1]), &hextoint($data[2]), $state);
}
}
close(FH);
}
#############################
# Convert hex to int
############################
sub hextoint($) {
my $tmp = shift;
my @data;
my @ip;
my $int;
# if have ':', then it's addr:port,else just port.
if( $tmp =~ /:/ ) {
if( $tmp =~ /FFFF/ ) {
@data = split /:/, $tmp;
# break it and do convert later.
@ip = $data[0] =~ /\w{2}/g;
foreach my $index (12..15){
$ip[$index] = hex($ip[$index]);
}
$int = sprintf("%-5s %d.%d.%d.%d:%d", "tcp6",$ip[15], $ip[14], $ip[13], $ip[12], hex($data[1]));
} else {
@data = split /:/, $tmp;
@ip = $data[0] =~ /\w{2}/g;
foreach my $index (0..3){
$ip[$index] = hex($ip[$index]);
}
$int = sprintf("%-s %d.%d.%d.%d:%d", " ",$ip[3], $ip[2], $ip[1], $ip[0], hex($data[1]));
}
} else {
@ip = $tmp =~ /\w{2}/g;
foreach my $index (0..3){
$ip[$index] = hex($ip[$index]);
}
$int = sprintf("%d.%d.%d.%d", hex($ip[3]), hex($ip[2]), hex($ip[1]), hex($ip[0]));
}
return $int;
}
#############################
# Show Kernel route table
############################
sub route_info($) {
my $routefile = shift;
open(ROUTE, $routefile) or die ("Can't open route file!\n");
my $header = "Iface Destination Gateway Flags Genmask\n";
printf("%s", $header);
my $format = "%-5s %-15s %-15s %-5s %-15s\n";
while(<ROUTE>) {
next if /Iface/;
my @line = split;
my ($iface, $dest, $gw, $flags, $mask ) = ($line[0], &hextoint($line[1]), &hextoint($line[2]), hex($line[3]), &hextoint($line[7]));
printf($format, $iface, $dest, $gw, $routeType[$flags], $mask );
}
close(ROUTE);
}
#############################
# Show help information
############################
sub usage {
printf("%s\n\n%-30s\n%-30s\n%-30s\n%-30s\n%-30s\n%-30s\n",
"netstat written in Perl by FinalBSD.Copyright(c) 2008.",
"-n Show numeric ip and port address.",
"-r Display the kernel routing table.",
"-a Show both listening and non-listening socktes.",
"-t Show only TCP statistics.",
"-l Show only listening sockets.",
"-h Show help.",
);
exit;
}