用perl来改写shell

查看Web服务器的并发请求数及其TCP连接状态的命令

netstat -n | awk '/^tcp/ {++S[$NF]} END {for(a in S) print a, S[a]}'  

据说是从新浪互动社区事业部技术总监王老大那儿获得的，非常不错。

返回结果一般为

LAST_ACK 247 （正在等待处理的请求数） 

SYN_RECV 66 

ESTABLISHED 1094 （正常数据传输状态） 

FIN_WAIT1 258 

FIN_WAIT2 629 

TIME_WAIT 4792 （处理完毕，等待超时结束的请求数） 

其他参数说明：

CLOSED：无连接是活动的或正在进行 

LISTEN：服务器在等待进入呼叫 

SYN_RECV：一个连接请求已经到达，等待确认 

SYN_SENT：应用已经开始，打开一个连接 

ESTABLISHED：正常数据传输状态 

FIN_WAIT1：应用说它已经完成 

FIN_WAIT2：另一边已同意释放 

ITMED_WAIT：等待所有分组死掉 

CLOSING：两边同时尝试关闭 

TIME_WAIT：另一边已初始化一个释放 

LAST_ACK：等待所有分组死掉 

本人shell中awk语法不是特别熟悉，老是关键时刻用到这个的时候，不会写。顺便用perl改写了下，哈哈

#!/usr/bin/perl -w 

use strict; 

our %hash; 

open TCP,'netstat -n|' or die "$!\n"; 

while ( <TCP> ) { 

       chomp; 

       next unless /^tcp/; 

       if ( exists $hash{(split /\s+/)[5]} ) { 

           $hash{(split /\s+/)[5]} ++; 

       } else { 

           $hash{(split /\s+/)[5]} = 1; 

       } 

} 

close TCP; 

while ( my($key,$val) = each %hash ) { 

       print "$key\t$val\n"; 

一样的结果

本文转自dongfang_09859 51CTO博客，原文链接：http://blog.51cto.com/hellosa/602696，如需转载请自行联系原作者