LWP::UserAgent
时间：2010-07-01 来源：chenhebuaa
- #!/usr/bin/perl
-
- use strict;
- use warnings;
- use LWP::UserAgent;
-
- my @urls = ('http://www.sina.com','http://www.163.com','http://www.csdn.net','http://www.11test11.com');
-
- my $lwp = LWP::UserAgent->new();
- foreach my $url(@urls){
- my $response = $lwp->get($url);
- my $status = $response->status_line();
- print " $url\t$status\n";
- }
-
- print "\n Press Enter key to close me ...\7";
- <STDIN>;
- exit;
相关阅读 更多 +
