作った。 #!/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
