下载网易相册的脚本

蓝色多瑙河1

用法，复制下面代码到down.pl，然后执行“./down.pl 相册用户名 相册ID Password”

1. 
   
2. #!/usr/bin/perl
   
3. #
   
4. # File: down.pl
   
5. # Author: blueirver
   
6. 
   
7. use strict;
   
8. use warnings;
   
9. 
   
10. use LWP::UserAgent;
    
11. use HTTP::Request::Common;
    
12. use Encode;
    
13. use File::Path;
    
14. 
    
15. sub lwp_get($;%)
    
16. {
    
17.         my ($url, %opt) = @_;
    
18. 
    
19.         my $uri = URI->new($url);
    
20.         my $referer = $uri->scheme."://".$uri->host.$uri->path unless (%opt || $opt{referer});
    
21.         my $useragent = 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1' unless (%opt || $opt{useragent});
    
22. 
    
23.         my $ua = LWP::UserAgent->new();
    
24. 
    
25.         my $req = HTTP::Request->new(GET => $url);
    
26.         $req->header('Host' => $uri->host);
    
27.         $req->header('User-Agent' => $useragent);
    
28.         $req->header('Referer' => $referer);
    
29.         $req->header('Cookie' => $opt{cookie});
    
30. 
    
31.         my $res = $ua->request($req);
    
32.         warn "fetch_page error! perhaps you should try again.\n" unless $res->is_success;
    
33. 
    
34.         if($opt{remote_charset} && $opt{local_charset} && ($opt{remote_charset} ne $opt{local_charset}))
    
35.         {
    
36.                 return encode($opt{local_charset}, decode($opt{remote_charset}, $res->as_string));
    
37.         }
    
38. 
    
39.         return $res->as_string;
    
40. }
    
41. 
    
42. sub lwp_post($$;%)
    
43. {
    
44.         my ($url, $form_ref, %opt) = @_;
    
45. 
    
46.         my $uri = URI->new($url);
    
47.         my $referer = $uri->scheme."://".$uri->host.$uri->path unless (%opt || $opt{referer});
    
48.         my $useragent = 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1' unless (%opt || $opt{useragent});
    
49.         my $cookie = ' ' unless (%opt || $opt{cookie});
    
50. 
    
51.         my $ua = LWP::UserAgent->new();
    
52.         $ua->default_headers->push_header('Host' => $uri->host,);
    
53.         $ua->default_headers->push_header('User-Agent' => $useragent,);
    
54.         $ua->default_headers->push_header('Referer' => $referer,);
    
55.         $ua->default_headers->push_header('Cookie' => $cookie);
    
56. 
    
57.         my $res = $ua->request(POST $url, Content => ${form_ref});
    
58. 
    
59.         warn "lwp_post faild!perhaps you supply a right password.\n" unless $res->is_success;
    
60. 
    
61.         return $res->as_string;
    
62. }
    
63. 
    
64. sub nease_split($)
    
65. {
    
66.         my ($html) = @_;
    
67.         my (@hostids, @type, @name, @photoids);
    
68.         @name = $html =~ /\[\d\d\d,\d,"\d+x\d+","(.*)","http:\/\/.*","http.*"\]/g;
    
69.         my (@photos) = $html =~/\[\d\d\d,\d,"\d+x\d+",".*","http:\/\/.*","(http.*)"\]/g;
    
70. 
    
71.         return (\@photos, \@name);
    
72. }
    
73. 
    
74. my ($user, $aid, $pwd) = @ARGV;
    
75. die "usage: $0 \$user \$aid [\$password]\n" if((not defined($user)) || (not defined($aid)));
    
76. 
    
77. my $aurl = "http://photo.163.com/photos/$user/$aid/";
    
78. my $iurl = "http://photo.163.com/js/photosinfo.php?user=$user&aid=$aid";
    
79. 
    
80. my ($html, $cookie);
    
81. if($pwd) {
    
82.         my %form = ('checking' => '1', 'pass' => $pwd);
    
83.         $html = lwp_post($aurl, \%form);
    
84.         ($cookie) = $html =~ /Set\-Cookie:(.*)/ig;
    
85. }
    
86. 
    
87. $html = lwp_get($iurl, (cookie => $cookie));
    
88. my ($url_ref, $name_ref) = nease_split($html);
    
89. 
    
90. #print $html;
    
91. my $folder = "$user/$aid";
    
92. mkpath($folder, 1, 0755);
    
93. 
    
94. my $ret;
    
95. foreach (0..$#${url_ref}) {
    
96.         print "\n$_/$#${url_ref} downloaded. ".$name_ref->[$_]."\n";
    
97.         next if(-f "$folder/".$name_ref->[$_+2]);
    
98.         $ret = `wget -c --referer=http://photo.163.com/photos/ $url_ref->[$_] -O \"$folder/$name_ref->[$_]\"`;
    
99. }
    

复制代码

[ 本帖最后由 蓝色多瑙河1 于 2007-6-16 23:18 编辑 ]

蓝色多瑙河1

就不注释了，小脚本～看过163相册代码的都能明白

dread0

多谢分享！

小脚本。。。我还是看不懂，比我写得脚本都大

我菜的，学习

kaoruamene

麻烦楼主加一下code标签 再贴一下好吗？
有些字符串给论坛程序给替换掉了

蓝色多瑙河1

原帖由 kaoruamene 于 2007-6-16 22:37 发表
麻烦楼主加一下code标签 再贴一下好吗？
有些字符串给论坛程序给替换掉了

呵呵，好的～