gougou.com的资源处理

mrkissinger

http://blog.csdn.net/mrkissinger/archive/2007/09/26/1800829.aspx

迅雷提供的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";
    }
}

Xorcerer

请问提取出来的结果是控制台的输出对吗？还是剪贴版？

mrkissinger

控制台。
不过最好你转向到文件中，迅雷可以导入url list。

Xorcerer

Post by mrkissinger
控制台。
不过最好你转向到文件中，迅雷可以导入url list。

谢谢，怎么用？是在控制台下
$ 脚本名 迅雷url >> listfile
这样？

mrkissinger

Post by Xorcerer
谢谢，怎么用？是在控制台下
$ 脚本名 迅雷url >> listfile
这样？

找個頁面做例子。

amd64:~# thunder.pl "http://58.251.57.67/down?cid=2A7BB325B41528CF643A4D5B818A5DB7C00BBDC6&t=4&fmt=-"
Fetching [http://60.28.178.201/down?cid=2A ... &t=4&fmt=-] ...
ftp://202.102.208.199/f:/movie/ed/done/[±äÐνð¸Õ].Transformers.2007.DVDRip.XviD-FLAiTE-CD1.avi
amd64:~#

上面帖子改了一下，原來沒有加ftp的支持。
我的系統是UTF8的，所以中文看起來是亂碼。不過你轉向到文件裏面，vim打開是正常的中文。