大家都知道用awk结合netstat统计网络连接数,那么用perl如何实现呢? 如下: netstat -n | awk '/^tcp/ {++state[$NF]} END {for(key in state) print key,"\t",state[key]}' 先看 netstat -n 执行结果为:   Active Internet connections (w/o servers) Proto Recv-Q Send-Q Local Address          Foreign Address             State  tcp        0    268 ::ffff:192.168.1.100:22     ::ffff:192.168.1.2:50825    ESTABLISHED Active UNIX domain sockets (w/o servers) 状态介绍: 
  1. CLOSED：无连接是活动的或正在进行  
  2. LISTEN：服务器在等待进入呼叫  
  3. SYN_RECV：一个连接请求已经到达，等待确认  
  4. SYN_SENT：应用已经开始，打开一个连接  
  5. ESTABLISHED：正常数据传输状态  
  6. FIN_WAIT1：应用说它已经完成  
  7. FIN_WAIT2：另一边已同意释放  
  8. ITMED_WAIT：等待所有分组死掉  
  9. CLOSING：两边同时尝试关闭  
  10. TIME_WAIT：另一边已初始化一个释放  
  1. LAST_ACK：等待所有分组死掉 
再来看看awk： 

/^tcp/ 
滤出tcp开头的记录，屏蔽udp, socket等无关记录。 

state[] 
相当于定义了一个名叫state的数组 

NF 
表示记录的字段数，如上所示的记录，NF等于6 

$NF 
表示某个字段的值，如上所示的记录，$NF也就是$6，表示第6个字段的值，也就是TIME_WAIT 

state[$NF] 
表示数组元素的值，如上所示的记录，就是state[TIME_WAIT]状态的连接数 

++state[$NF] 
表示把某个数加一，如上所示的记录，就是把state[TIME_WAIT]状态的连接数加一 

END 
表示在最后阶段要执行的命令 

for(key in state) 
遍历数组 

print key,"\t",state[key] 
打印数组的键和值，中间用\t制表符分割. 用perl写出来就是这样的: 
  1. #!/usr/bin/perl -w 
  2. use warnings; 
  3. use strict; 
  4. my $cmd="netstat -n"; 
  5. my @netlist=`$cmd`; 
  6. my %hash; 
  7. foreach (@netlist){ 
  8.         chomp; 
  9.         next unless /^tcp/; 
  10.         s/^\s+//i; 
  11.         s/\s+$//i; 
  12.         my $type = (split)[-1]; 
  13.         $hash{$type}++; 
  14. } 
  15. foreach my $type(keys %hash){ 
  16.         my $count = $hash{$type}; 
  17.         printf "%s: %d\n",$type,$count; 
  1. }
当然perl也允许在命令行外执行.