WWW::Shorten - Abstract interface to URL shortening sites.
use WWW::Shorten 'EkDk'; use WWW::Shorten 'Fcol'; use WWW::Shorten 'MakeAShorterLink'; use WWW::Shorten 'Metamark'; use WWW::Shorten 'NotLong'; use WWW::Shorten 'QuickOnes'; use WWW::Shorten 'Shorl'; use WWW::Shorten 'SmLnk'; use WWW::Shorten 'SnipURL'; use WWW::Shorten 'TinyURL'; # Individual modules have have their # own syntactic varations. # See the documentation for the particular # module you intend to use for details, trips # and traps. $short_url = makeashorterlink($long_url); $long_url = makealongerlink($short_url); # If you don't like the function names: use WWW::Shorten 'SnipURL', ':short'; $short_url = short_link( $long_url ); $long_url = long_link( $short_url );
A Perl interface to URL shortening sites. These sites maintain databases of long URLs, each of which has a unique identifier.
The function makeashorterlink will call the relevant web site passing it your long URL and will return the shorter version.
makeashorterlink
The function makealongerlink does the reverse. makealongerlink will accept as an argument either the full shortened URL or just the identifier.
makealongerlink
If anything goes wrong, then either function will return undef.
undef
makeashorterlink, makealongerlink
Or, if you specify :short on the import line, you instead get short_link and long_link. If you explicitly want the default set, use :default.
:short
short_link
long_link
:default
A very simple program called shorten is supplied in the distribution's bin folder. This program takes a URL and gives you a shortened version of it.
Dave Cross for WWW::MakeAShorterLink
Alex Page for the original LWP hacking on which Dave based his code.
Simon Batistoni for giving the makealongerlink idea to Dave.
Eric Hammond for writing the NotLong variant.
Shashank Tripathi for providing both SnipURL.com and advice on the module.
Kevin Gilbertson (Gilby) supplied information on the TinyURL API interface.
Matt Felsen (mattf) wanted shorter function names.
Please report bugs at <bug-www-shorten@rt.cpan.org> or via the web interface at http://rt.cpan.org
Copyright © Iain Truskett, 2002-03. All rights reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Iain Truskett <spoon@cpan.org>
Based on WWW::MakeAShorterLink by Dave Cross <dave@dave.org.uk>
perl
To install WWW::Shorten, copy and paste the appropriate command in to your terminal.
cpanm
cpanm WWW::Shorten
CPAN shell
perl -MCPAN -e shell install WWW::Shorten
For more information on module installation, please visit the detailed CPAN module installation guide.