perl写的tcp连接数

发布时间：2020-12-15 21:04:27 所属栏目：大数据来源：网络整理

导读：?perl程序显示本机的tcp连接数例子 #!/usr/bin/perl? ? my?$ _cmd = "netstat?-an|grep?-v?unix" ;? my?@ _output =`$_cmd`;? ? my?$ _estab ??????=? 0 ;? my?$ _listen ?????=? 0 ;? my?$ _timewait ???=? 0 ;? my?$ _timeclose ??=? 0 ;? my?$ _finwait1

?perl程序显示本机的tcp连接数例子

 
 
#!/usr/bin/perl?
  
  ?
  
  my?$_cmd="netstat?-an|grep?-v?unix";?
  
  my?@_output=`$_cmd`;?
  
  ?
  
  my?$_estab??????=?0;?
  
  my?$_listen?????=?0;?
  
  my?$_timewait???=?0;?
  
  my?$_timeclose??=?0;?
  
  my?$_finwait1???=?0;?
  
  my?$_finwait2???=?0;?
  
  my?$_synsent????=?0;?
  
  my?$_synrecv????=?0;?
  
  my?$_closewait??=?0;?
  
  ?
  
  foreach?(@_output)?{?
  
  ????????$_estab++???????if?/ESTABLISHED/;?
  
  ????????$_listen++??????if?/LISTEN/;?
  
  ????????$_timewait++????if?/TIME_WAIT/;?
  
  ????????$_timeclose++???if?/TIME_CLOSE/;?
  
  ????????$_finwait1++????if?/FIN_WAIT1/;?
  
  ????????$_finwait2++????if?/FIN_WAIT2/;?
  
  ????????$_synsent++?????if?/SYN_SENT/;?
  
  ????????$_synrecv++?????if?/SYN_RECV/;?
  
  ????????$_closewait++???if?/CLOSE_WAIT/;?
  
  }?
  
  
print?"?established:$_estabn?listen:$_listenn?timewait:$_timewaitn?timeclose:$_timeclosen?finwait1:$_finwait1n?finwait2:$_finwait2n?synsent:$_synsentn?synrecv:$_synrecvn?closewait:$_closewaitn";?

运行结果如下

以上运行结果等效于

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!