36 lines
489 B
Perl
36 lines
489 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
|
|
my $s="metallica";
|
|
my %bands;
|
|
|
|
my $i=1;
|
|
my $l=$i+2;
|
|
|
|
cr("$s", $i);
|
|
|
|
sub cr {
|
|
my ($s, $i) = @_;
|
|
return if ($i == $l);
|
|
my @r=`wget http://www.music-map.com/$s -O - 2>&1`;
|
|
foreach my $j (@r) {
|
|
chomp $j;
|
|
if ($j =~ /class=S id/) {
|
|
if ($j !~ /$s/) {
|
|
my ($b) = $j =~ /\>(.*)\</;
|
|
#print "$b\n";
|
|
$bands{"$b"}="$j";
|
|
cr("$b", $i+1);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
my $j=1;
|
|
print "\n\n\n";
|
|
foreach my $k (sort keys %bands) {
|
|
printf "%d %s\n", $j++, $k;
|
|
}
|
|
|