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

1. #!/usr/bin/perl -w 
2.  
3. use strict; 
4. use LWP::UserAgent; 
5. use Net::SMTP; 
6. use POSIX qw/strftime/; 
7.  
8. print <<EOF; 
9. +--------------------------------------+ 
10. +----made by Henry He on 2011/03/03----+ 
11. +--------------------------------------+ 
12. EOF 
13.  
14. my @array = (); 
15. my $count = 0; 
16.  
17. open FILE,'<','url.txt' or die "$!\n"; 
18.  
19. while (<FILE>) { 
20.        chomp; 
21.        /(\S+)/; 
22.        push @array,$1; 
23. } 
24.  
25. close FILE; 
26.  
27. foreach my $url (@array) { 
28.  
29.         $count++; 
30.  
31.         my $obj = LWP::UserAgent->new( 
32.                                       keep_alive=>1, 
33.                                       timeout=>60); 
34.  
35.         my $req = HTTP::Request->new(GET=>"$url"); 
36.  
37.         my $res = $obj->request($req); 
38.  
39.         if ($res->is_success) { 
40.             print $url,"\t",$res->status_line,"\n"; 
41.         } else { 
42.             print "$url\tFailed:\t",$res->status_line,"\n"; 
43.             sendemail("$url\tFailed:\t" . $res->status_line,"\n"); 
44.         } 
45.  
46. } 
47.  
48. my $cur_time = strftime "%Y-%m-%d",localtime; 
49.  
50. print "\n"; 
51. print <<EOF; 
52. +-------------------------------------+ 
53. +      Finished check $count urls     + 
54. +-------------------------------------+ 
55. EOF 
56.  
57. printlog("finished check $count urls at $cur_time...\n"); 
58.  
59. sub sendemail { 
60.     my $content = shift; 
61.     #change it for your smtp server 
62.     my $host = 'smtp.163.com'; 
63.     #your email account here 
64.     my $mail_from = 'your_email_account'; 
65.     #change it what you want to send here 
66.     my $mail_to = 'abc@abc.com'; 
67.     #email subject 
68.     my $subject = 'Error Notice'; 
69.  
70.     my $smtp = Net::SMTP->new($host, 
71.                               Hello=>'localhost', 
72.                               Timeout=>120, 
73.                               Debug=>1 
74.                               ); 
75.      # modify it with your email username and password 
76.      $smtp->auth('your_email_username','your_email_password'); 
77.      $smtp->mail($mail_from); 
78.      $smtp->to($mail_to); 
79.      $smtp->data(); 
80.      $smtp->datasend("To: $mail_to\n"); 
81.      $smtp->datasend("From: $mail_from\n"); 
82.      $smtp->datasend("Subject: $subject\n"); 
83.      $smtp->datasend("\n"); 
84.      $smtp->datasend("$content\n\n"); 
85.      $smtp->dataend(); 
86.      $smtp->quit; 
87.  
88. } 
89.  
90. sub printlog { 
91.     my $str = shift; 
92.     open LOG,'>>','check_url_status.log' or die "$!\n"; 
93.     print LOG "$str"; 
94.     close LOG; 
95. } 

url.txt

code:

1. http://www.abc.com 
2. http://www.test.com 
3. http://www.xyz.com 
4. ………………………… 
5. ………………………… 
6. ………………………… 
7. http://www.def.com 
8. http://www.123.com