注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

wangyufeng的博客

祝愿BB 健康开心快乐每一天

 
 
 

日志

 
 

Perl抓取网页实例:VOA网站mp3文件下载  

2013-08-12 16:57:35|  分类: Perl & bioperl |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

一下内容转自:seaok的百度空间,特此鸣谢(http://hi.baidu.com/chb_seaok/item/5b3effac28e4d835030a4d0f)

perl的网页抓取,玩了下,感觉跟python的差不多,写了个指定下载VOA网站的mp3文件脚本

代码:

#!/usr/bin/perl
use utf8;
binmode(STDIN, ':encoding(utf8)');
binmode(STDOUT, ':encoding(utf8)');
binmode(STDERR, ':encoding(utf8)');
use LWP::Simple;

$url='http://www.51voa.com/VOA_Special_English/Google-Faces-Heat-Over-New-Privacy-Policy-44607.html'; #下载页

$page=get($url) or die "couldn't get $usr\n";

@arry=split "\n", $page;

foreach $i (@arry)
{
    if($i=~/<a href="http://wangyufeng222.blog.163.com/blog/(.*).mp3">/)   #获取下载地址
    {
        $down_path='http://www.51voa.com'.$1."\.mp3";
        system ("wget $down_path -O /home/seaok/书籍/test.mp3");   #用wget命令下载
        print "test.mp3下载完成\n";
    }
}
  评论这张
 
阅读(944)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018