一个网页下载工具。喜欢就说下，不喜欢也别说我

junchen2

影响不好，我现在关闭这个话题。见谅。

[ 本帖最后由 junchen2 于 2009-3-28 22:30 编辑 ]

junchen2

关闭话题见谅

[ 本帖最后由 junchen2 于 2009-3-28 22:33 编辑 ]

machine

不错，有空攻读一下。

nsnake

这年头perl都去干这个了？

gawk

看到有码，sex

ynchnluiti

这是我见过最长的perl代码

machine

你太有才了！！！！ 先不说代码，就这应用，太牛了

junchen2

我另外说一下。要使用的话将上面的 附件下载下来 ，装好代理软件tor下载地址http://www.vidalia-project.net/
IE代理切换软件下载地址http://www.proxyswitcher.com/
firefox 代理切换软件下载地址 https://addons.mozilla.org/en-US/firefox/addon/2275
这个小程序主要是可以比较方便的查看当天发表的bt种子主题，更新的方式查看有没用新的主题。
附件里面的angel.txt可以自定义关键字自己添加进去就是了。本人用了快一年了一直很正常


。


还有一个问题

#---------------------------------------------------------------------------------

sub CurlDownWeb{
      my $url;
      my $cookies;
      my $Tor_proxy;
      ($url,$Tor_proxy,$cookies) = @_;
      if(! $cookies){$cookies = "NO";};
      if(! $Tor_proxy){$Tor_proxy = "NO";};
      my $head = "\"Mozilla/5.0 (Windows; U; Windows NT 5.1; zh-CN; rv:1.8.1.14)\"";
      my $command = "curl -A $head -x \"$Tor_proxy\" -b \"$cookies\" -m 100 --connect-timeout 10 $url 2>nul";
      if(($cookies eq "NO" && $Tor_proxy){$command = "curl -A $head -x \"$Tor_proxy\"  -m 100 --connect-timeout 10 $url 2>nul";}
      if(($cookies eq "NO" && ($Tor_proxy eq "NO"){$command = "curl -A $head  -m 100 --connect-timeout 10 $url 2>nul";}
      my $content = `$command`;
      if ($content){
         open (HTML,">sexIndex.html";
         print HTML $content;
         close HTML;
         } else {
         # if error we must down again;
         sleep 5;
         my $content1 = `$command`;
         open (HTML,">sexIndex.html";
         print HTML $content1;
         close HTML;
         }
}

#上面的   if ($content){
         open (HTML,">sexIndex.html";
         print HTML $content;
         close HTML;
         } else {
         # if error we must down again;
         sleep 5;
         my $content1 = `$command`;
         open (HTML,">sexIndex.html";
         print HTML $content1;
         close HTML;
感觉用下面的函数部分代码的方式比较好一点
#----------------------------------------------------------------------------------
sub furUrl{
      my $url = shift;
      my $head = "\"Mozilla/5.0 (Windows; U; Windows NT 5.1; zh-CN; rv:1.8.1.14)\"";
      my $command = "curl -A $head  -m 100 --connect-timeout 10 \"$url\" 2>nul";
      my $tryNum  = 1;
      while(1){
           print $url,"\n..................download times   ",$tryNum,"\n";
           my $content = `$command`;
           if ($content =~ /<\/html>/i){
                open (HTML,">urlmain.html";
                print HTML $content;
                close HTML;
                last;
                }
            $tryNum++;
            sleep 3;
            if($tryNum > 5){
                  my $adslIsOk = `Rasdial`;
                  unless($adslIsOk =~ /已连接/i){system("Rasdial adsl hzhza9300024 123456";$tryNum = 1;
                  } else {system("异常.vbs";last;}
                  }
            }

}

#----------------------------------------------------------------------------------

[ 本帖最后由 junchen2 于 2008-10-23 19:28 编辑 ]

flw

太牛逼了！

百分百好牛

。。。。。。牛B
帮顶。
留印。