nestat -n | perl -lane '$h{$F[5]++ if /tcp.*/;END {print "$_=>$h{$_}}" for keys %h}'
常见问题
相关文章
猜你喜欢
- 批量下载书籍，慎用 2015-12-14
- simple http proxy 2015-12-14
- perl爬虫收集当前页面所以链接地址，不需要用HTML::LinkExtor模块 2015-12-14
- 使用perl socket 在WINDOWS DHCP服务上 实现ip绑定 2015-12-14
- sort 自定义函数排序 2015-12-14
- 查找重复文件 2015-12-14
- 结合Zabbix做MySQL相关性能参数 2015-12-14
- perl 等待打点功能实现。休闲代码：） 2015-12-14
- Perl 一个简单的 GUI 程序，有退出按钮 2015-12-14
- Perl 调用 SetAttributes 修改文件属性 （Windows） 2015-12-14
