gougou.com的资源处理

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