bulix.org / pastebin

Paste #82319: doubanFM.perl

#!/usr/bin/perl

use strict;
use warnings;
use JSON qw(decode_json);
use LWP::UserAgent;
#no warnings 'utf8';

my $ua = LWP::UserAgent->new;
my $response = $ua->get('http://douban.fm');
my %type = $response->content =~
/<li data-genre_id="(\d+?)">(.+?)<\/li>/g;
foreach (keys %type){
    print "$_ = $type{$_}\n";
}

my $channels_url =
'http://douban.fm/j/explore/search?query=genre_id:'
.'335'
.'&start=0&limit=20';
$response = $ua->get($channels_url);
my $json = decode_json($response->content);
foreach (@{$json->{data}{channels}}){
    print $_->{name}."\n";
}

#my $app_channel = 'http://www.douban.com/j/app/radio/channels';