《使用Socket获得网页的方法》

cnangel

1. [watermark]#!/usr/bin/perl
2. use IO::Socket qw(:DEFAULT :crlf);
3. $/ = CRLF . CRLF;
4. my $data;
6. #指定要获得网页
7. my $url = 'http://www.sina.com/index.html';
9. #使用正则
10. my ($host,$path) = $url=~m!^http://([^/]+)(/[^\#]*)!;
12. #构造IO::Socket对象
13. my $socket = IO::Socket::INET->new(PeerAddr=>$host,PeerPort=>'http(80)');
15. #向服务器发送HTTP1.0请求
16. print $socket "GET $path HTTP/1.0",CRLF,CRLF;
18. #将获得的头信息放到$header变量中
19. my $header = <$socket>;
21. #转换CRLF为当前系统回车符
22. $header =~ s/$CRLF/\n/g;
23. #打印显示HTTP头信息
24. print $header;
26. #显示需要获得的页面内容
27. print $data while read($socket,$data,1024) > 0;[/watermark]

复制代码