监控tcp状态_ooooldman-ChinaUnix博客

ooooldmanooooldman.blog.chinaunix.net

首页　| 　博文目录　| 　关于我

ooooldman

博客访问： 300430
博文数量： 47
博客积分： 1667
博客等级：上尉
技术积分： 686
用户组：普通用户
注册时间： 2010-05-06 16:20

文章分类

全部博文（47）

学习测试（9）
diy（0）
perl 学习（7）
分布式存储（1）
日常维护（14）
mysql（4）
vpn（0）
监控（4）
puppet（8）
未分配的博文（0）

文章存档

2013年（20）

2012年（20）

2011年（7）

我的朋友

最近访客

推荐博文

监控tcp状态

发布时间：2013-03-29 11:56:18

netstat -an |awk '/^tcp/{a[$NF]++}END{for (b in a)print b,a[b]}'#!/usr/bin/perluse warnings;use strict;my (%tcp,$netstat);for my $line (`netstat -an`){ if ( $line =~ /^tcp/ ){ $netstat=(split /\.........【阅读全文】

阅读(1959) | 评论(0) | 转发(0)

perl 数据结构

发布时间：2012-12-21 16:45:12

#!/usr/bin/perluse warnings;use strict;定义一个2维数组，只要在定义数组，添加多个数组即可my @matrix = ( [3,4,10], [2,7,12], &n......【阅读全文】

阅读(1911) | 评论(0) | 转发(0)

监控windows QQ进程

发布时间：2012-12-13 14:36:53

#!perluse warnings;use strict;use Win32::Process;my @abc=`tasklist`;print @abc;while (1) {if (grep /QQ.exe/,@abc){ print 'QQ.exe';} else{ &qqprocess;}sleep 10;}sub qqprocess{ my $result = Win32::Process::Create( my $Pr......【阅读全文】

阅读(2799) | 评论(0) | 转发(0)

net::ftp

发布时间：2012-12-13 10:24:06

#!perluse warnings;use strict;use Net::FTP;my $ftpserver='192.168.188.2';my $ftpuser='tony';my $ftppassword='tony123456';my $ftp=Net::FTP->new("$ftpserver",Debug=>1)or die "$!";$ftp->login("$ftpuser","$ftppassword") or die "$!";###cwd前进到目录#$ftp->cwd('/abc') or die "$!";###ls显示文件my @file=......【阅读全文】

阅读(1805) | 评论(0) | 转发(0)

perl 发信

发布时间：2012-07-20 16:20:07

......【阅读全文】

阅读(1830) | 评论(0) | 转发(0)