最速インターフェース研究会

#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use WebService::Lingr;

my $room_id = 'saisoku';
my $livedoor_id = 'YOUR_LIVEDOOR_ID';
my $lingr = WebService::Lingr->new(api_key => "YOUR_API_KEY");

my $res = $lingr->call('room.enter', { id => $room_id, nickname => "$livedoor_idの未読件数" });
my $ticket  = $res->{ticket};
$lingr->call('room.say', { message => sprintf("%s件", get_ldr_unread($livedoor_id)) , ticket => $ticket });

$lingr->call('session.destroy', {});

sub get_ldr_unread{
    my $livedoor_id = shift;
    my $url = "http://rpc.reader.livedoor.com/notify?user=".$livedoor_id;
    my $content = get($url);
    my ($count) = $content =~ /\|(\d+)\|\|/;
    return $count;
}