标题:
《使用Socket获得网页的方法》
[打印本页]
作者:
cnangel
时间:
2003-11-14 21:53
标题:
《使用Socket获得网页的方法》
[watermark]#!/usr/bin/perl
use IO::Socket qw(:DEFAULT :crlf);
$/ = CRLF . CRLF;
my $data;
#指定要获得网页
my $url = 'http://www.sina.com/index.html';
#使用正则
my ($host,$path) = $url=~m!^http://([^/]+)(/[^\#]*)!;
#构造IO::Socket对象
my $socket = IO::Socket::INET->new(PeerAddr=>$host,PeerPort=>'http(80)');
#向服务器发送HTTP1.0请求
print $socket "GET $path HTTP/1.0",CRLF,CRLF;
#将获得的头信息放到$header变量中
my $header = <$socket>;
#转换CRLF为当前系统回车符
$header =~ s/$CRLF/\n/g;
#打印显示HTTP头信息
print $header;
#显示需要获得的页面内容
print $data while read($socket,$data,1024) > 0;[/watermark]
复制代码
欢迎光临 星星博客 (http://commerce.huhoo.net/)
Powered by Discuz! 7.0.0