WWW::LongURL - Perl interface to the LongURL API.
use WWW::LongURL; my $longurl = WWW::LongURL->new(); my $expanded_url = $longurl->expand('http://bit.ly/cZcYFn'); if (! $expanded_url) { die $longurl->error(), "\n"; } my @shortening_services = $longurl->get_services(); if (! @shortening_services) { die $longurl->error(), "\n"; } for my $service (@services) { binmode(STDOUT, ':utf8'); print $service, "\n"; }
A simple interface for using the LongURL API to expand shortened URLs.
You can expand a bit.ly URL like so:
my $url = $longurl->expand($some_bitly_url);
You can retrieve a list of shortening services supported by longurl like so:
my @services = $longurl->get_services();
new
Constructor
expand($url)
On success, will return the expanded URL from LongURL. On failure, returns undef.
get_services
On success, returns an array of shortening services that longurl.org supports. On failure, returns undef.
error
Returns the last error message.
LongURL will expand the URL from over 200 supported shortening services.
See http://longurl.org/services
Development is on-going at: https://github.com/kevinspencer/WWW-LongURL
Kevin Spencer, kspencer@cpan.org
Copyright (c) 2011. Kevin Spencer
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See http://www.perl.com/perl/misc/Artistic.html
http://longurl.org/, http://longurl.org/api/
To install WWW::LongURL, copy and paste the appropriate command in to your terminal.
cpanm
cpanm WWW::LongURL
CPAN shell
perl -MCPAN -e shell install WWW::LongURL
For more information on module installation, please visit the detailed CPAN module installation guide.