(.*?)<\/div>/gsi ) {
print "AAAAAAAAAAAAAAA $1 AAAAAAAAAAAAAAAAAA\n";
$song = $1;
}
if ( $html =~ /
(.*?)<\/div>/gsi ) {
$artist = $1;
$artist =~ s|<.+?>||g;
$artist =~ s/\s+//g;
}
push @rValue,
{
'rank' => $rank,
'artist' => $artist,
'song' => $song
};
$count = 1;
$rank = 2;
while( $count < 25 )
{
$div = zUtil::getNthItemNew( $count, $html, "
" );
#print "div: $div\n\n";
$song = $div;
$song =~ s|<.+?>||g;
$song =~ s/\s+//g;
$div = zUtil::getNthItemNew( $count, $html, "
" );
$artist = $div;
$artist =~ s|<.+?>||g;
$artist =~ s/\s+//g;
$len = length($artist);
if( $len > 20 ) {
$artist = substr($artist,0,20);
}
print "rank: $rank\n";
print "artist: $artist\n";
print "song: $song";
if(! $song =~ /^$/ ) {
push @rValue,
{
'rank' => $rank,
'artist' => $artist,
'song' => $song
};
}
$rank++;
$count++;
}
#exit 1;
return @rValue;
}
return 1;