当前位置:  技术问答>linux和unix

linux下如何实现internet下载功能,即linux有没有windows wininet这样的包

    来源: 互联网  发布时间:2016-03-04

    本文导语:  linux下如何实现internet下载功能,即linux有没有windows wininet这样的包 | openwrt里面有一个download.pl你可以参考一下! #!/usr/bin/perl #  # Copyright (C) 2006 OpenWrt.org # # This is free software, licensed und...

linux下如何实现internet下载功能,即linux有没有windows wininet这样的包

|
openwrt里面有一个download.pl你可以参考一下!

#!/usr/bin/perl

# Copyright (C) 2006 OpenWrt.org
#
# This is free software, licensed under the GNU General Public License v2.
# See /LICENSE for more information.
#

use strict;
use warnings;

my $target = shift @ARGV;
my $filename = shift @ARGV;
my $md5sum = shift @ARGV;
my @mirrors;

my $ok;

@ARGV > 0 or die "Syntax: $0     [ ...]n";

sub which($) {
my $prog = shift;
my $res = `which $prog`;
$res or return undef;
$res =~ /^no / and return undef;
$res =~ /not found/ and return undef;
return $res;
}

my $md5cmd = which("md5sum");
$md5cmd or $md5cmd = which("md5");
$md5cmd or die 'no md5 checksum program found, please install md5 or md5sum';
chomp $md5cmd;

sub download
{
my $mirror = shift;
my $options = $ENV{WGET_OPTIONS};
$options or $options = "";

open WGET, "wget -t1 --timeout=20 $options -O- "$mirror/$filename" |" or die "Cannot launch wget.n";
open MD5SUM, "| $md5cmd > "$target/$filename.md5sum"" or die "Cannot launch md5sum.n";
open OUTPUT, "> $target/$filename.dl" or die "Cannot create file $target/$filename.dl: $!n";
my $buffer;
while (read WGET, $buffer, 1048576) {
print MD5SUM $buffer;
print OUTPUT $buffer;
}
close MD5SUM;
close WGET;
close OUTPUT;

if (($? >> 8) != 0 ) {
print STDERR "Download failed.n";
cleanup();
return;
}

my $sum = `cat "$target/$filename.md5sum"`;
$sum =~ /^(w+)s*/ or die "Could not generate md5sumn";
$sum = $1;

if (($md5sum =~ /w{32}/) and ($sum ne $md5sum)) {
print STDERR "MD5 sum of the downloaded file does not match - deleting download.n";
cleanup();
return;
}

unlink "$target/$filename";
system("mv "$target/$filename.dl" "$target/$filename"");
cleanup();
}

sub cleanup
{
unlink "$target/$filename.dl";
unlink "$target/$filename.md5sum";
}

foreach my $mirror (@ARGV) {
if ($mirror =~ /^@SF/(.+)$/) {
my $sfpath = $1;
open SF, "wget -t1 -q -O- 'http://prdownloads.sourceforge.net/$sfpath/$filename' |";
while () {
/RADIO NAME=use_default VALUE=(w+) OnClick="form.submit()">/ or
/type="radio" name="use_default" value="(w+)" onclick="form.submit()"/>/ and do {
push @mirrors, "http://$1.dl.sourceforge.net/sourceforge/$sfpath";
};
/Download/ and do {
push @mirrors, "http://$1.dl.sourceforge.net/sourceforge/$sfpath";
};
}
push @mirrors, "http://dl.sourceforge.net/sourceforge/$sfpath";
close SF;
} elsif ($mirror =~ /^@GNU/(.+)$/) {
my $gnupath = $1;
push @mirrors, "ftp://ftp.gnu.org/gnu/$gnupath";
push @mirrors, "ftp://ftp.belnet.be/mirror/ftp.gnu.org/gnu/$gnupath";
push @mirrors, "ftp://ftp.mirror.nl/pub/mirror/gnu/$gnupath";
push @mirrors, "http://mirror.switch.ch/ftp/mirror/gnu/$gnupath";
push @mirrors, "ftp://ftp.uu.net/archive/systems/gnu/$gnupath";
push @mirrors, "ftp://ftp.eu.uu.net/pub/gnu/$gnupath";
push @mirrors, "ftp://ftp.leo.org/pub/comp/os/unix/gnu/$gnupath";
push @mirrors, "ftp://ftp.digex.net/pub/gnu/$gnupath";
} else {
push @mirrors, $mirror;
}
}

#push @mirrors, 'http://mirror1.openwrt.org/';
push @mirrors, 'http://mirror2.openwrt.org/sources';
push @mirrors, 'http://downloads.openwrt.org/sources/';

while (!$ok) {
my $mirror = shift @mirrors;
$mirror or die "No more mirrors to try - giving up.n";

download($mirror);
-f "$target/$filename" and $ok = 1;
}

$SIG{INT} = &cleanup;



|
libcurl很好很强大~~~
可以参考下wget源代码:)linux我一般用wget来下载

    
 
 

您可能感兴趣的文章:

  • XP下设置与linux 本地连接的Internet共享问题
  • 请问在linux环境下如何连接 internet 拨号?
  • Linux c++虚函数(virtual function)简单用法示例代码 iis7站长之家
  • linux的虚拟机怎么连internet
  • linux下怎样通过局域网进入internet浏览网页
  • 红旗Linux桌面版2.0 如何设置网络才可通过 LAN 访问 Internet ?
  • 有关linux连上internet的问题!!!(急,急 ,急,高分相送!)
  • ->>(linux上网)向大家请教:装redhatlinux后的网络设置。局域网、internet
  • linux配置Internet IP的问题,高手请进!
  • 为社么,我该设置的都设置了,我安装的linux只可以访问局域网,internet就访问不了.
  • 我是超级linux菜鸟,我刚装的redhatlinux7.2(english),不知道怎么将它连上internet?
  • 请问A:Linux能否实现Internet共享,其它的是windows2000的B,C,D电脑。
  • 请问在linux下怎样通过局域网进入internet浏览网页??高手帮忙!!我到处问没人能解决!
  • 请问如何在linux下进行Internet连接配置???
  • red had linux9.0工作站如何设定才能通过Windows ISA Server上Internet?
  • 我在win2000上装了vmware,并在vm上安装了rh9,现在出现三块网卡,我该怎么设置才能让linux访问internet?
  • linux7.2下的Internet共享怎么连接
  • 我重装了winme,却进不了Linux了,而我现在又没有Linux光盘,也没有Linux启动盘,还有没有办法?
  • 有没有在大连搞linux的,我想了解一下大连的linux情况!
  • linux里有没有象vc那样的IDe啊,有没有类库什么的呢
  • linux中有没有什么命令能列出所有linux的内部命令
  • 我想学习linux桌面编程,那么有没有必要学习linux的内核以及内核的相关编程呢?
  • 网络中其他98的机器怎么telnet到linux机器上,linux中有没有什么需要设置的
  • 有没有这样的开发工具,在window编辑运行.然后程序放到linux下直接可以执行了.就是在win下提供一个linux虚拟机.
  • 有没有哪位知道linux下有没有什么可视聊天的工具
  • 有没有在windows下模拟Linux命令系统的软件! 我想学习Linux的基本命令!
  • 哪一个国产Linux最好,是红旗还是蓝点,带不带Office?WPS有没有Linux版本?HP打印机有没有Linux驱动?
  • InstallShield 有没有linux版本的?
  • linux里面的所有头文件,有没有整理过的,发一份,谢谢!!!
  • 散完全部分请教:linux下面有没有类似windows下面rasdial的命令
  • 有没有玩的转LINUX源码的高手?
  •  
    本站(WWW.)旨在分享和传播互联网科技相关的资讯和技术,将尽最大努力为读者提供更好的信息聚合和浏览方式。
    本站(WWW.)站内文章除注明原创外,均为转载、整理或搜集自网络。欢迎任何形式的转载,转载请注明出处。












  • 相关文章推荐
  • linux c/c++ IP字符串转换成可比较大小的数字
  • 在win分区上安装linux和独立分区安装linux有什么区别?可以同时安装吗?(两个linux系统)
  • linux哪个版本好?linux操作系统版本详细介绍及选择方案推荐
  • 在虚拟机上安装的linux上,能像真的linux系统一样开发linux程序么?
  • secureCRT下Linux终端汉字乱码解决方法
  • 我重装window后,把linux的引导区覆盖了,进不了linux怎么办?急啊,望热心的人帮助 (现在有linux的盘)
  • Linux c字符串中不可打印字符转换成16进制
  • 安装vmware软件,不用再安装linux系统,就可以模拟linux系统了,然后可以在其上学习一下LINUX下的基本操作 了?
  • Linux常用命令介绍:更改所属用户群组或档案属性
  • 红旗Linux主机可以通过127.0.0.1访问,但如何是连网的Win2000机器通过Linux的IP去访问Linux
  • linux命令大全详细分类介绍及常用linux命令文档手册下载
  • 我重装window后,把linux的引导区覆盖了,进不了linux怎么办?急啊,望热心的人帮助 (现在没有linux的盘,只有DOS启动盘)
  • Linux Kernel 'sctp_v6_xmit()'函数信息泄露漏洞
  • 如何让win2000和linux共存。我装好WIN2000,再装LINUX7.0,但LILO只能找到LINUX,不能引导WIN2000
  • linux c下利用srand和rand函数生成随机字符串
  • 在windows中的VMware装了个linux,主板有两个串口,能做windows和linux的串口通信测试么,怎么测试这两个串口在linux是有效
  • Linux c++虚函数(virtual function)简单用法示例代码
  • 我们网站的服务器从windows2000迁往linux,ASP程序继续使用,可是我连LINUX的皮毛都不了解,大家告诉我LINUX下怎么建网站??
  • Docker官方镜像将会使用Alpine Linux替换Ubuntu
  • 中文Linux与西文Linus分别哪一个版是权威?I认为是:中科软的白旗Linux与西文的绿帽子Linux!大家的看法呢?
  • Linux下chmod命令详细介绍及用法举例
  • Windows2000和Linux双操作系统,Linux系统有问题,我直接把Linux分区删除后,Windows2000进不去了,怎么办???


  • 站内导航:


    特别声明:169IT网站部分信息来自互联网,如果侵犯您的权利,请及时告知,本站将立即删除!

    ©2012-2021,,E-mail:www_#163.com(请将#改为@)

    浙ICP备11055608号-3