ircbot用lgtm

lgtm.pl

use strict;
use Web::Scraper;
use URI;

my $uri = URI->new('http://www.lgtm.in/g');
my $scraper = scraper {
    process '//input[@id="imageUrl"]', 'image_url' => '@value';
    process '//input[@id="dataUrl"]',  'data_url'  => '@value';
};
my $result = $scraper->scrape($uri);
print $result->{image_url}, "\n";
print $result->{data_url}, "\n";