nestat -n | perl -lane '$h{$F[5]++ if /tcp.*/;END {print "$_=>$h{$_}}" for keys %h}'
常见问题
相关文章
猜你喜欢
- 提取psite位点附近序列 2015-12-14
- row模式下从binlog提取DML的回滚sql 2015-12-14
- 通过web界面查询svn更新 2015-12-14
- 解压缩文件后按行读取并处理 2015-12-14
- perl Sys::Uptime模块使用例子 2015-12-14
- 子程序的运用 2015-12-14
- Perl获取Linux操作系统版本 2015-12-14
- Perl 使用 DBI 连接到 Oracle 数据库 2015-12-14
- 正则表达式求素数 2015-12-14
- Perl 操作 Windows 的系统服务 2015-12-14
