网页下载

[haxiu]

我想做一个网页下载程序,就是将sina中的新闻下载到本地,然后将他上传到内网的web上,
请高手提示应该怎么做!

[CViva]

可以先取得代码，然后具体情况具体分析
以下取得csdn的title中的内容，仅供参考：

#!/usr/bin/perl

use strict;
use Socket;
use Sys::AlarmCall;

my $web_url = "http://www.csdn.net/";
my $timeout = 10;
my @html_content = alarm_call($timeout,'get_html',$web_url);

foreach $html_content(@html_content)
{
if ($html_content =~ /<title>.*<\/title>/i)
{
$html_content_bak = $html_content;
$html_content =~ tr/A-Z/a-z/;
$begin_site = index($html_content , '<title>');
$end_site = index($html_content , '</title>');
$title = substr($html_content_bak , $begin_site + 7 , $end_site -$begin_site - 7);
}
}

print $title;

sub get_html
{

my $url = $_[0];
my $port = '80';
my $domain;
my $request = "GET $url HTTP/1.0\n\n";
my @html_result;

$domain = parse_url($url);

my $i_addr = inet_aton($domain);
return 0 if (!$i_addr);

my $p_addr = sockaddr_in($port, $i_addr);
return 0 if(!$p_addr);

my $proto = getprotobyname('tcp');

return 0 if(!socket(HTTP, PF_INET, SOCK_STREAM, $proto));
return 0 if(!connect(HTTP, $p_addr));
return 0 if(!select(HTTP));
return 0 if(!select(STDOUT));
return 0 if(!send(HTTP, $request, 0));

while(<HTTP>)
{
push (@html_result,$_);
}

return @html_result;

}

[warton]

用Http控件！还要先研究一下Http协议！

[haxiu]

先在这谢谢大家了!
用msinet控件行不行啊?不过msinet.ocx没有,从网上当的又无法使用!从哪儿能注册这个组件啊!