Skip to content

Instantly share code, notes, and snippets.

Created Mar 2, 2009
What would you like to do?
#!/usr/bin/env perl
use strict;
use warnings;
use Config::Pit qw/pit_get/;
use LWP::Simple qw//;
use List::Util qw/sum/;
use WebService::Hatena::Graph;
my $hatena_id = 'KGA';
my $ldr_api = '';
my @feeds = map { "$hatena_id/$_" } qw/rss rss2/;
my $conf = pit_get('', require => {
username => 'Hatena ID',
password => 'Password',
my $graph = WebService::Hatena::Graph->new(%$conf);
my $total = sum map { LWP::Simple::get("$ldr_api$_") } @feeds;
graphname => "LDR$hatena_id",
value => $total,
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment