[分享]下载优酷视频的perl脚本

bfscyb

喜欢在优酷上下视频到mp4上看，自己写了个下载的脚本。

2. #!/usr/bin/perl
3. use strict;
4. use warnings;
5. use Digest::MD5 qw/md5_hex/;
7. qx/
8.         if [[ ! -d \/tmp\/youku ]]; then
9.                 mkdir \/tmp\/youku;
10.         else
11.                 rm \/tmp\/youku\/*;
12.         fi
13. /;
14. foreach (@ARGV) {
15.         /id_(.+)\.html/;
16.         my $time = time();
17.         my $auth = md5_hex((time().' XOA== MWZlNWE4Y2Q4OWQ0NjEyMWJjZTJmMWNiYTVhNzQwZGM='));
18.         my $url = "http://api.youku.com/api_rest?method=video.getvideofile&pid=XOA==&ctime=$time&auth=$auth&videoid=$1";
19.         qx/wget -O \/tmp\/youku\/api_rest -U Xeslaro '$url'/;
20.         open(my $in, "<", "/tmp/youku/api_rest");
21.         my @file = <$in>, my $name, my $cnt=0, my $ans=0, my $piece, my $min;
22.         foreach (@file) {
23.                 if (/CDATA\[(.+)\]\]/) {
24.                         $name = $1;
25.                 }
26.                 elsif (/^<seg id="(\d+)"/) {
27.                         $piece = $1;
28.                 }
29.                 elsif (/^<\/stream>/) {
30.                         if (!$cnt) {
31.                                 $min = $piece;
32.                         }
33.                         elsif ($piece <= $min) {
34.                                 $min = $piece, $ans = $cnt;
35.                         }
36.                         $cnt++;
37.                 }
38.         }
39.         $cnt = 0;
40.         foreach (@file) {
41.                 if (/^<\/stream>/) {
42.                         $cnt++;
43.                 }
44.                 elsif ($cnt==$ans && /url="(.+)"/) {
45.                         qx/wget -P \/tmp\/youku -U Xeslaro '$1'/;
46.                 }
47.         }
48.         @file = qx/ls -l \/tmp\/youku\/*.*/;
49.         chomp($file[0]);
50.         $file[0] =~ /\.(.+)$/;
51.         if (@file > 1) {
52.                 qx/mencoder \/tmp\/youku\/*.* -oac mp3lame -ovc copy -of lavf -lavfopts format=$1 -o '$name'.$1/;
53.         }
54.         else {
55.                 qx/mv \/tmp\/youku\/*.* '$name'.$1/;
56.         }
57.         qx/rm \/tmp\/youku\/*/;
58. }

复制代码

hj_18

感谢分享。
字数补丁。

bfscyb

这段代码有问题……删掉了。

jixiuf

可以看到下载视频的过程，但是
ls: 无法访问/tmp/youku1314537690/*.*: 没有那个文件或目录
Use of uninitialized value $file[0] in scalar chomp at d2.pl line 58, <$in> line 15.
Use of uninitialized value $file[0] in pattern match (m//) at d2.pl line 59, <$in> line 15.
mv: 无法获取"/tmp/youku1314537690/*.*" 的文件状态(stat): 没有那个文件或目录ls: 无法访问/tmp/youku1314537690/*.*: 没有那个文件或目录
Use of uninitialized value $file[0] in scalar chomp at d2.pl line 58, <$in> line 15.
Use of uninitialized value $file[0] in pattern match (m//) at d2.pl line 59, <$in> line 15.
mv: 无法获取"/tmp/youku1314537690/*.*" 的文件状态(stat): 没有那个文件或目录

bfscyb

ls不好意思，三楼的代码有些问题。一楼的应该能正常用。我改进了下，你看现在这个能用不？

3. #!/usr/bin/perl -w
4. use strict;
5. use Digest::MD5 qw/md5_hex/;
7. sub download {
8.         my ($id, $ans, $file, $dir) = @_, my $cnt = 0;
9.         for (my $i = 0; defined ($_ = $file->[$i]); $i++) {
10.                 if (/^<\/stream>/) {
11.                         $cnt++;
12.                 }
13.                 elsif ($cnt == $ans && /url="(.+)"/) {
14.                         next if fork();
15.                         while (1) {
16.                                 qx/wget -P $dir -U Xeslaro -t 3 '$1'/;
17.                                 exit unless $?;
18.                                 @$file = api_rest($id);
19.                                 $file->[$i] =~ /url="(.+)"/;
20.                         }
21.                 }
22.         }
23.         while (wait() != -1) {
24.         }
25. }
26. sub api_rest {
27.         $_ = shift;
28.         /id_(.+)\.html/;
29.         while (1) {
30.                 my $time = time();
31.                 my $auth = md5_hex((time().' XOA== MWZlNWE4Y2Q4OWQ0NjEyMWJjZTJmMWNiYTVhNzQwZGM='));
32.                 my $url = "http://api.youku.com/api_rest?method=video.getvideofile&pid=XOA==&ctime=$time&auth=$auth&videoid=$1";
33.                 my @file = qx/wget -U Xeslaro -O - -t 1 '$url'/;
34.                 return @file if (!$? && grep(/<\/stream>/, @file) >= 1);
35.         }
36. }
37. foreach (@ARGV) {
38.         my $dir = "/tmp/youku".time();
39.         qx{
40.                 if [[ ! -d $dir ]]; then
41.                         mkdir $dir
42.                 else
43.                         rm -r $dir
44.                 fi
45.         };
46.         my @file = api_rest($_), my $name, my $cnt=0, my $ans=0, my $min;
47.         my %rank = (
48.                 hd2 => 0,
49.                 mp4 => 1,
50.                 flv => 2,
51.                 flvhd => 3,
52.                 '3gphd' => 4,
53.                 '3gp' => 5,
54.         );
55.         foreach (@file) {
56.                 if (/CDATA\[(.+)\]\]/) {
57.                         $name = $1;
58.                 }
59.                 elsif (/type="(.+)">/) {
60.                         if (!$cnt) {
61.                                 $min = $rank{$1};
62.                         }
63.                         elsif ($rank{$1} < $min) {
64.                                 $ans = $cnt;
65.                         }
66.                         $cnt++;
67.                 }
68.         }
69.         if (fork()) {
70.                 print "downloading $name begins...\n";
71.                 next;
72.         }
73.         download($_, $ans, \@file, $dir);
74.         @file = qx/ls -l $dir\/*.*/;
75.         $file[0] =~ /\.(.+)$/;
76.         if (@file > 1) {
77.                 qx/mencoder $dir\/*.* -oac mp3lame -ovc copy -of lavf -lavfopts format=$1 -o '$name'.$1/;
78.         }
79.         else {
80.                 qx/mv $dir\/*.* '$name'.$1/;
81.         }
82.         qx/rm -r $dir/;
83.         print "$name downloaded...\n";
84.         exit;
85. } continue {
86.         sleep 1;
87. }
88. while (wait() != -1) {
89. }

复制代码