关闭

gougou.com的资源处理

479人阅读 评论(0) 收藏 举报
迅雷提供的gougou.com可以搜索很多电影资源,但是对firefox支持不好,无法获得下载链接。
所以我写了一个小脚本,自动从gougou.com的资源页面中提取下载链接。

对于BT/Donkey被ISP封了的Linux用户,wine可以良好的运行迅雷。用本脚本获得下载链接后,即可用wine+迅雷下载。

下面是代码。

############################################

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;

my $line;
my $pageurl;
my $url;

$pageurl=$ARGV[0];
$pageurl=~s/58.251.57.67/60.28.178.201/g;
print "Fetching [$pageurl] .../n";

my $ua = LWP::UserAgent->new(timeout => 5);
my $response = $ua->get($pageurl)->content;
#print $response;

my @arr=split(//n/, $response);
my $len=@arr;
#print $len;

foreach $line (@arr)
{
    #print $line;
    if ($line=~/document.cookie=/)
    {
        #print $line."/n";
        $line=~ m!(http|ftp)://([/w/W]+?)-->!;
        #print "==>". $& . "/n";
        $url=$&;
        $url=~s/-->//g;
        print "$url/n";
    }
}
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:4023次
    • 积分:82
    • 等级:
    • 排名:千里之外
    • 原创:4篇
    • 转载:0篇
    • 译文:0篇
    • 评论:2条
    文章分类
    文章存档