Perl实现下载百度Top100歌曲

自从遇见一位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: [e-mail]

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);