perl检测网站首页状态
2011-03-03 19:39
211 查看
perl检测网站首页状态代码,随便写的,一起交流
url.txt
code:
#!/usr/bin/perl -w use strict; use LWP::UserAgent; use Net::SMTP; use POSIX qw/strftime/; print <<EOF; +--------------------------------------+ +----made by Henry He on 2011/03/03----+ +--------------------------------------+ EOF my @array = (); my $count = 0; open FILE,'<','url.txt' or die "$!\n"; while (<FILE>) { chomp; /(\S+)/; push @array,$1; } close FILE; foreach my $url (@array) { $count++; my $obj = LWP::UserAgent->new( keep_alive=>1, timeout=>60); my $req = HTTP::Request->new(GET=>"$url"); my $res = $obj->request($req); if ($res->is_success) { print $url,"\t",$res->status_line,"\n"; } else { print "$url\tFailed:\t",$res->status_line,"\n"; sendemail("$url\tFailed:\t" . $res->status_line,"\n"); } } my $cur_time = strftime "%Y-%m-%d",localtime; print "\n"; print <<EOF; +-------------------------------------+ + Finished check $count urls + +-------------------------------------+ EOF printlog("finished check $count urls at $cur_time...\n"); sub sendemail { my $content = shift; #change it for your smtp server my $host = 'smtp.163.com'; #your email account here my $mail_from = 'your_email_account'; #change it what you want to send here my $mail_to = 'abc@abc.com'; #email subject my $subject = 'Error Notice'; my $smtp = Net::SMTP->new($host, Hello=>'localhost', Timeout=>120, Debug=>1 ); # modify it with your email username and password $smtp->auth('your_email_username','your_email_password'); $smtp->mail($mail_from); $smtp->to($mail_to); $smtp->data(); $smtp->datasend("To: $mail_to\n"); $smtp->datasend("From: $mail_from\n"); $smtp->datasend("Subject: $subject\n"); $smtp->datasend("\n"); $smtp->datasend("$content\n\n"); $smtp->dataend(); $smtp->quit; } sub printlog { my $str = shift; open LOG,'>>','check_url_status.log' or die "$!\n"; print LOG "$str"; close LOG; }
url.txt
code:
http://www.abc.com http://www.test.com http://www.xyz.com ………………………… ………………………… ………………………… http://www.def.com http://www.123.com本文出自 “BSDerの-专注于开源领域” 博客,请务必保留此出处http://hellosa.blog.51cto.com/2698675/505781
相关文章推荐
- perl检测网站首页状态
- 检测网站状态脚本
- shell检测网站状态码和访问时间
- Ping命令检测网站运行状态
- 通过httpstat 检测网站连接速度和状态
- 网站运行状态检测工具
- 网站安全/网站状态 检测
- site网站安全状态为危险,提示被篡改检测为被篡改怎么办?
- 利用python并发模块进行网站的状态检测
- 定时检测网站运行状态
- nginx报错:403 Forbidden 并且访问首页index.php是下载文件的状态
- 如何增强你的SharePoint 团队网站首页
- 检测网站是否被篡改的脚本
- 定义函数的方式,监控网站的存活状态
- javascript检测浏览器的缩放状态
- linux下利用shell脚本自动检测服务状态并自动恢复服务
- 通过内核空间的netlink检测网络状态变化的文章链接
- linux下检测网卡与网线连通状态
- 把网站首页设置成黑白色
- 检测tomcat服务状态,并能自动重启的代码