perl检测网站首页状态

概述 perl检测网站首页状态代码，随便写的，一起交流 #!/usr/bin/perl -w    use strict;  use LWP::UserAgent;  use Net::SMTP;  use POSIX qw/strftime/;    print <<EOF;  +--------------------------------------+  +----made by Henry

 perl检测网站首页状态代码，随便写的，一起交流

#!/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","\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检测网站首页状态全部内容，希望文章能够帮你解决perl检测网站首页状态所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。