| Subject: | Single quotes aka apostraphes lop of the rest of the data |
Linux babyjr 2.4.29 #6 Thu Jan 20 16:30:37 PST 2005 i686 unknown
unknown GNU/Linux
This is perl, v5.8.8 built for i686-linux
use Netx::WebRadio;
use Netx::WebRadio::Station::Shoutcast;
When connect to a stream and it receives the beginning meta fine under
station->stationname(); If you continue to grab data using that
function you can also grab the new titles using a simple while
statement.
my $stat;
while ( $station->receive() ) {
if ( defined($station->stationname()) ) { if ( $station-
Show quoted text
>stationname() eq $stat ) { sleep 5; } else { $stat = $station-
>stationname(); print $station->stationname(), br; } }
$station->stationname();
}
using that it will print the title whenever it is sent and does not
match the current title. But if the song contains a single quote such
as MC Hammer Can't Touch this. It ends up MC Hammer Can