perl检测网站首页状态

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

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,;     }          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   

总结

以上是内存溢出为你收集整理的perl检测网站首页状态全部内容，希望文章能够帮你解决perl检测网站首页状态所遇到的程序开发问题。

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