home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 June / Chip_2004-06_cd1.bin / opsys / macos / radio / radio.dmg / RadioLover.app / Contents / Resources / ParseShoutcastWWW.pl < prev    next >
Perl Script  |  2004-03-30  |  462b  |  17 lines
  1. #!/usr/bin/perl -w
  2.  
  3. # Input: curl www.shoutcast.com
  4. # Output: Text file of format: URL\nRADIO STATION NAME\n...
  5. #
  6. # Simon Liu, 23 Oct 2002
  7.  
  8. # slurp entire input into one variable
  9. local $/ = undef;
  10. $slurp = <STDIN>;
  11.  
  12. # regexp to search for URL $1 and RADIO STATION NAME $2
  13. while ( $slurp =~ /<a href=\"(\/sbin\/shoutcast-playlist\.pls.*?)\".*?<a.*?href=\".*?\">(.*?)<\/a>.*?>(\d+)<\/f/giso ) {
  14.     print $2,"\n",$3,"\n\n","http://www.shoutcast.com", $1, "\n";
  15. }
  16.  
  17.