use WWW::Shorten::Google;

Perl Goo.gl

GoogleのURL短縮API叩くモジュールがあったので実装してみた

モジュールはGithubからもってきました。
http://github.com/yappo/p5-WWW-Shorten-Google/

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use CGI;
use CGI::Carp;
use WWW::Shorten::Google;
use WWW::Shorten 'Google';

my $q = CGI->new();
my $source_url = $q->param("url");
my $short_url;
if ($source_url =~ /^http/) {
    $short_url = makeashorterlink($source_url);
}
else {
    $short_url = "<form action='./sample.cgi'><input name='url'><input
    type='submit' name='submit'></form>";
}

print "Content-type: text/html; charset=utf8\n\n";
print "$short_url";