首页 电脑 电脑学堂 查看内容

用perl来改写shell

2011-7-5 14:42 724 0

摘要: 查看Web服务器的并发请求数及其TCP连接状态的命令netstat -n | awk '/^tcp/ {++S[$NF]} END ...
关键词: nbsp WAIT hash 状态 已经 分组 一个 split ESTABLISHED FIN

查看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 "$! ";  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 "; }  一样的结果
声明:文章版权归原作者所有 部分文章转自互联网 如有侵权请联系 [邮箱地址] 删除

路过

雷人

握手

鲜花

鸡蛋

最新评论

返回顶部