music_search_enigine.pl

#!/usr/bin/env perl

use common::sense;
use WWW::Mechanize;

print "Coded by: Aureliano Guedes";

sub parse {
    my ($self) = shift;
    $self =~ s/\s+/\+/g;
    chomp $self;
    print "Now --> " . $self . "\n\n";
    return ("http://www.buscamp3.org/busca/" . $self);
}

sub get_donwloader_link {
    my $self = shift;
    my $m = WWW::Mechanize->new();
    my $p = $m->get($self);
    $p = $p->decoded_content;
    $m->max_redirect(1);
    my @Links = $m->links();
    foreach my $link(@Links){
        my @a = split ("/", $link->url());
        if ($a[1] =~ m/dl/gi){
            print "OK!\n";
            my $c = $m->get("http://www.buscamp3.org" . $link->url());
            return $c->decoded_content;
        }
    }
    undef $m;
}


open IN, $ARGV[0] or die;

foreach (<IN>){
    open OUT,">" . $_ . ".mp3";
    print "Search for: " . $_ . "\n";
    print OUT get_donwloader_link(link_gen (parse ($_)));
    print "\n\n";

}