Traz links de MP3 para baixar do MP3Skull.com

mp3search.pl

#!/usr/bin/perl

print << "!";


___  _________ _____   _____                     _     
|  \\\/  || ___ \\____ | /  ___|                   | |    
| .  . || |_/ /   / / \\ `--.  ___  __ _ _ __ ___| |__  
| |\\\/| ||  __/    \\ \\  `--. \\\/ _ \\\/ _` | '__/ __| '_ \\ 
| |  | || |   .___/ / /\\__/ /  __/ (_| | | | (__| | | |
\\_|  |_/\\_|   \\____/  \\____/ \\___|\\__,_|_|  \\___|_| |_| V 1.0
                                                     

!

if($#ARGV < 0) {
  print "$0: Nome da música faltando.\n\033[1;31m [-]\033[0m Modo de uso: perl mp3search.pl \"NOME DA MUSICA E ARTISTA\" \n\n";
  exit 1;
}


sleep 1;

print "\033[1;34m [+]\033[0m code by: Unk\n";

sleep 1;

print "\033[1;34m [+]\033[0m Gr33tz: Cooler_, All l3370s H4x0rs\n";

sleep 1;

print "\033[1;34m [+]\033[0m Search \033[1;5;34m [...]\033[0m\n";

sleep 5;

$musica = $ARGV[0];
$musica =~ s/ /_/g;
#print $musica;
my @content = split(/\n/,`wget -qO- http://mp3skull.com/mp3/$musica.html`);

my @links = grep(/<a.*href=.*>/,@content);
my @links2 = grep(/\.mp3/,@links);

foreach my $c (@links2){
  $c =~ /<a.*href="([\s\S]+?)".*>/;
  $link = $1;
  $c =~ /<a.*href.*>([\s\S]+?)<\/a>/;
  $title = $1;
  print "\033[1;31m [+]\033[0m $title $musica\n\033[1;34m [LINK]\033[0m$link\n";
}