=head2 icecast_listeners($url, $stream_name)

    icecast_listeners('http://localhost:8000/status-text.xsl', '/strea
+m');

The URL provided should point to a comma-delimited status file served 
+by
icecast in the format:

    MountPoint,Connections,Stream Name,Current Listeners,Description,C
+urrently Playing,Stream URL

As long as the MountPoint and Stream Name don't have any embedded comm
+as
in them, the (simplistic) parsing should work fine.  Fixing the regexe
+s
if this isn't suitable is left as an exercise for the reader.  ; )

Returns undef on error and the number of listeners for the stream
specified on success, or if no stream is specified, the listeners for
all streams.

=cut

sub icecast_listeners {
    my ($url, $stream) = @_;
    
    # get data
    use LWP::Simple qw/get/;
    my $data = LWP::Simple::get($url) or return undef;
    $data =~ s/<br>/\n/g;
    my @data = split /\n/, $data;
    
    if ($stream) {
        # getting just one stream
        for (@data) {
            next unless /^\Q$stream\E/;
            /^\Q$stream\E,\d+,[^,]*,(\d+),/;
            return $1 ? $1 : 0;
        }
    } else {
        # get total listeners for server
        my $total = 0;
        for (@data) {
            next unless /^\//;
            /^\/[^,]+,\d+,[^,]*,(\d+),/;
            $total += $1 if $1;
        }
        return $total ? $total : 0;
    }
    return undef;
}

[download]

In reply to Get Icecast Stream (or Server) Listeners by The Mad Hatter

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.