批量下载书籍，慎用

大佬教程收集整理的这篇文章主要介绍了批量下载书籍，慎用，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

use utf8;
binmode(STDIN,':encoding(utf8)');
binmode(STDOUT,':encoding(utf8)');
binmode(STDERR,':encoding(utf8)');
use LWP::UserAgent;
use LWP::Simple;
$|=1;
my $agent = 'Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML,like Gecko) Chrome/37.0.2062';

my $ua= LWP::UserAgent->new(agent =>  $agent);

my %index = ('10','科幻科普','12','奇幻灵异','11','武侠仙侠','20','侦探推理','13','都市言情','14','当代现代','16','历史军事','17','政治经济','21','人物传记','18','哲学宗教','15','古典诗词');

while(my ($i,$f) = each(%indeX)) {

  mkdir $f;
  for my $pn(1..18) {
    my $response = $ua->get("http://blah.me/category/$i?p=$pn");
    print "http://blah.me/category/$i?p=$pn\n";
    if ($response->is_success) {
      my $content =  $response->decoded_content; 
      if ($content =~ /未找到/) {
        last;
      }
      my @ret = ($content =~ m/Epub" href="(\/download\/ebook\/\d+\/epub)"\s+data-book-type="epub"\s+data-book-id="\d+"\s+data-book-title="(.*?)"/gso);
      my %ret = @ret;
      while(my ($u,$n) = each(%ret)) {
        print $u.': '.$n;
        print "\n";
        my $filename = "$f/$n.epub";
        if (! -e $fileName) {
          getstore("http://blah.me".$u,$fileName);
        }
      }
    }
    else {
       print "$i $f $pn failed\n";
    }
  }
}

大佬总结

以上是大佬教程为你收集整理的批量下载书籍，慎用全部内容，希望文章能够帮你解决批量下载书籍，慎用所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。