Misc.

Perl Module for use with Yourls Released

CamelI wanted to put an image of the Perl Camel up on this post but it would have required getting permission from O’Reilly to do so. Hence, I decided to use this beautiful picture by angeloux.

I just got around to finishing the alpha version of WWW::Shorten::Yourls which is a simple Perl module to shorten URLs using the open source Yourls.org project.

You can take a look at the code at GitHub or install the code using CPAN.


#! /usr/local/bin/perl
#
# LICENSE: This code is licensed under the same license as Perl itself
#
##############################################
use WWW::Shorten::Yourls;

my $url = "http://www.teknatus.com";
my $uid = "userid_for_yourls_install";
my $passwd = "password_for_yourls_install";
my $base = "base_url_for_yoursl_install";

my $yourls = WWW::Shorten::Yourls->new(URL => $url,
USER => $uid,
PASSWORD => $passwd,
BASE => $base);

print $yourls;

my $yourl = makeashorterlink($url,$uid,$passwd,$base);
print $yourl;

1;

Do let me know what you think.

Related Posts:

Partner at 500 Startups, Founder Startup Weekend India, Co-founder Headstart Network, Founder Teknatus (Semblr and Mojowiz), Director of Sales at Cymtec, Director at GlobeOp Financial Services, Long-Term Capital Management (LTCM). Hedge fund refugee; startup junkie, failed entrepreneur.