自从遇见一位Perl大神,本人就对Perl 倾心已久, 想征服它,一直以来没那个勇气,但是从现在开始我要征服它,希望有一天能成长为他那样的级别。
挥手间,强弩灰飞烟灭。
从现在开始吧。。
下面是我的处女作.
用到的知识点都是最基本的, 高深的还不会,还要慢慢积累,有什么不足之处,还望各位大神指点指点小弟。
需求: 发现想自动化下载网络上的一些歌曲,不用人工下载。
实现: 用最简单的perl语法实现
说明: 最多限定了下载100首。
注意:
my $list_url = "http://music.baidu.com/top/new";
#http://music.baidu.com/top/dayhot
这个地址可以变更成自己想要的。
___________________________________________________________________
#!/usr/bin/perl
# Date: 2014.02.13# Author: arika
# Info: jinfei09@126.com
use strict;
use LWP::Simple;
use IO::File;
my $url_root = "http://music.baidu.com";
my $list_url = "http://music.baidu.com/top/new";
my $main_url_file = "urls.txt";
my $songItem = "songItem";
my $songDir = "song";
my $count = 0;
my $song_max = 100;
qx(mkdir -p $songItem $songDir);
sub get_song_url
{
(my $all_url_file, my $all_song_url)= @_;
open(IN, ">$all_url_file") or die "Can not open $all_url_file, because: $!";
print "Begin downloading $all_song_url\n";
print IN get($all_song_url);
close IN;
}
sub start_get_url
{
my $file = shift;
open(IN, "<$file") or die "Can not open $file,$!";
while(<IN>) {
if(/songItem/) {
$count++;
my $one_song = ($_=~m/song-item-hook { 'songItem':(.*)}/);
my $one_song_info = ($1 =~ m/{ 'sid': '(.*)', 'sname': '(.*)', 'author': '(.*)' }/);
my $song_name = "$2_$3.mp3";
my $song_url = "$url_root/song" . "/$1";
my $song_key_file = "songItem/$1";
my $song_local_path = "song/$song_name";
open(FILE, ">$song_key_file") or die "Can not open $song_key_file:$!";
print FILE get($song_url);
close FILE;
open(FILEHANDLE, "<$song_key_file") || die "Can not open $song_key_file: $!";
while(<FILEHANDLE>){
if(/data_url="(.*)"/){
open(FILESONG, ">$song_local_path") or die "Can not open $song_local_path:$!";
print ">>>>>>Begin download [$count][$song_name]\n";
print "URL[$count]: " . $1 . "\n";
print FILESONG get($1);
close FILESONG;
print "<<<<<<Success download\n\n";
}
}
close FILEHANDLE;
}
if($count eq $song_max) {last;}
}
close IN;
}
&get_song_url($main_url_file, $list_url);
&start_get_url($main_url_file);
qx(rm -rf $main_url_file $songItem);