while (1) { will loop as long as 1 is true, which should be a very very long time since 1 is always true. It is a way to create an infinite loop.


___________
Eric Hodges

I've seen a few radio stations that post their playlists. Some are realtime, some are not. KFOG is another San Francisco station that does post their playlist and I think it's fairly realtime or it was. However BBC6, which I listen to at work, does post their playlists, but some presenters do it about 5-10 minutes after the song plays, while others wait a day to post. I've even seen some Real Audio feeds that actually give you the title and artist.
Useless trivia: In the 2004 Las Vegas phone book there are approximately 28 pages of ads for massage, but almost 200 for lawyers.

BTW, the "+" you see is added by perlmonks for formatting, you can turn the text wrapping on/off from your user settings page.

Not sure why you're having problem streaming, I listen to KOIT via the net (Windows Media), all seems to be fine. Yes, the "waht's playing now" is for KOIT only, it's a couple of seconds late, but usually ok.

Use of uninitialized value in print at lyrics.pl line 38 (print $ly;)
[download]

Something changed recently in KOIT or lyricbox.com that's breaking the code, need to fix the regex, will do it when I found time.

Seems the problem is with the lyricsbox.com site (404 err)
I tried switching to musicsonglyrics.com, and that loks better (tho' my hack is pure screen scraping...)
Could be nice if you get some time to fix it!

____________________________________________________
Update April 19: added yet another lyrics channel... -- allan
____________________________________________________
Update April 26: updated code (incl TK GUI) in node 450914
____________________________________________________


#!/usr/bin/perl -w
# polls what's current playing on radio KOIT in San Francisco,
# get the lyrics from lyricsbox.com
# TODO: (1) make the title search a little fuzzier
#       (2) search more sites for lyrics
#       (3) nicer interface? color, scrolling?
# ====================================================================
+==========
use strict;
use LWP::Simple;
use URI::Escape;

my $nowplay     = "http://koit.com/nowplay_data.cfm";
my $lyricsbox   = "http://www.lyricsbox.com";
my $lyrics_list = "$lyricsbox/cgi-exe/am.cgi?a=search&p=1&l=artist&s="
+;
my $musicsong   = "http://www.musicsonglyrics.com";
my $matrix      = "http://www.ntl.matrix.com.br";
my ($last_artist,$last_title) = ("","");
my $sleep       = 60;                           # poll once/min
select((select(STDOUT), $| = 1)[0]);            # autoflush STDOUT
my $data;

while(1){
    while (!($data = get($nowplay))) { print "*"; sleep $sleep; next; 
+} 
    my  ($artist, $title) = $data =~ m|box=(.+) - (.+)&|;
    for ($title) { s/\W+$//g;  s/^\W+//g; }     # rm head&trail junk
    my  ($a1,$t1,$a,$t,$r) = (substr($artist,0,1), substr($title,0,1))
+;
    
    if ($artist ne $last_artist && $title ne $last_title){
                
        # NowPlaying on KOIT
        print "\n","-"x50,"\n";
        print "[$artist]: [$title]\n\n";
        ($last_artist, $last_title) = ($artist, $title);
        my ($list, $url, $song); my $ly = "";
        
        # Lyrics from lyricsbox?
        $list = get($lyrics_list.uri_escape($artist));
        ($url) =  $list =~ m|<A href="([^"]+)">\Q$title\E.*?</A></td>|
+i;
        if ($url)  { $song = get($lyricsbox.$url); }
        if ($song) { ($ly) = $song =~ m|<PRE.*?>(.+)</PRE>|si; }
        if ($ly) { print "Lyrics: $lyricsbox\n\n $ly\n\n"; next;
        } else   { print "No lyrics: $lyricsbox\n"; }
        
       # Lyrics from matrix?
        ($a, $t) = ($artist, $title);
        for ($t) { s/\s/_/g; s/\'//g; }
        foreach my $p ("html/lyrics/$t1", "oldies_list/top/lyrics") {
            $url = lc("pfilho/$p/${t}.txt");
            $ly = get("$matrix/$url"); last if $ly;
        } if ($ly) { for ($ly) { s/^\s+//; s/\s+$//; }
                   print "Lyrics: $matrix\n\n $ly\n\n"; next;
        } else  {  print "No lyrics: $matrix\n"; }
        
        # Lyrics from musicsong?
        ($a, $t) = ($artist, $title);
        for $r (\$a, \$t) { $$r =~ s/\s//g; $$r = lc($$r); }
        $url = "$a1/${a}lyrics/$a${t}lyrics.htm";
        $song = get("$musicsong/$url");
        if ($song) { ($ly) = $song =~ m|<span.*?>(.+)</span>|si; }
        if ($ly) { for ($ly) { s/^\s+//; s/\s+$//; s/<.*?>//gi; }
                 print "Lyrics: $musicsong\n\n $ly\n\n"; next;
        } else { print "No lyrics: $musicsong\n"; }
        
    } else { print "."; }
    
    sleep $sleep;
}
[download]


-- Allan

===========================================================
As the eternal tranquility of Truth reveals itself to us, this very place is the Land of Lotuses

-- Hakuin Ekaku Zenji