用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?"$keyt$valn";?
  
  
}?
 
 

一样的结果