社区
通信技术
帖子详情
网页下载
haxiu
2003-09-10 04:52:38
我想做一个网页下载程序,就是将sina中的新闻下载到本地,然后将他上传到内网的web上,
请高手提示应该怎么做!
...全文
40
3
打赏
收藏
网页下载
我想做一个网页下载程序,就是将sina中的新闻下载到本地,然后将他上传到内网的web上, 请高手提示应该怎么做!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
haxiu
2003-09-11
打赏
举报
回复
先在这谢谢大家了!
用msinet控件行不行啊?不过msinet.ocx没有,从网上当的又无法使用!从哪儿能注册这个组件啊!
warton
2003-09-10
打赏
举报
回复
用Http控件!还要先研究一下Http协议!
CViva
2003-09-10
打赏
举报
回复
可以先取得代码,然后具体情况具体分析
以下取得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;
}
Dreamweaver
网页
设计作业
下载
我们寝室四个人的四份做好的
网页
设计作业!成品四个!Dreamweaver做的!全部是满分作业哦~~!传上来大家看看!
2014大学生个人
网页
作业成品免费
下载
我们分享了六份
网页
作业在这里,希望这里有你想要的成品,一般一个寝室刚好六人嘛,不够的话大伙就到表哥作业网来看看吧。 表哥作业网bgzuoye.com有
网页
成品和FLASH成品,博客栏目我们会分享在设计
网页
过程中遇到的...
Laravel 8入门到开发CMS(2022)(停更)
【简介和安装】 Laravel的历史版本 Laravel的优势 本课程推荐的学习资料
下载
安装wamp wamp新建本地域名的网站
下载
安装phpstusy phpstudy新建Laravel网站 使用Composer国内镜像,
下载
和运行Laravel 运行Laravel的...
用socket
下载
网页
。
必须先写好代理,然后就可以
下载
网页
。
究极推荐:36个漂亮的各类型网站源代码打包分享
是的,在您看过之后,如果您真觉得不错,或者需要
下载
后续百来个网站的话,欢迎您评论,给予@贝斯特_岳 和优设哥一些动力。因为这些网站确实是我们精挑细选出来的一些非常漂亮的资源,就算和很多流行网站比较,他们...
通信技术
4,356
社区成员
28,926
社区内容
发帖
与我相关
我的任务
通信技术
通信技术相关讨论
复制链接
扫一扫
分享
社区描述
通信技术相关讨论
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章