The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

MakeAShorterLink - Perl interface to makeashorterlink.com

SYNOPSIS

  use MakeAShorterLink;

  $short_url = makeashorterlink($long_url);

  $long_url  = makealongerlink($short_url);

DESCRIPTION

A Perl interface to the web site makeashorterlink.com (MASL to its friends). MASL simply maintains a database of long URLs, each of which has a unique identifier.

The function makeashorterlink will call the MASL web site passing it your long URL and will return the shorter MASL version.

The function makealongerlink does the reverse. makealongerlink will accept as an argument either the full MASL URL or just the MASL identifier.

If anything goes wrong, then either function will return undef.

EXPORT

makeashorterlink, makealongerlink

AUTHOR

Dave Cross <dave@dave.org.uk> Original LWP hacking by Alex Page <grimoire@corinne.cpio.org> makealongerlink idea by Simon Batistoni <simon@hitherto.net>

SEE ALSO

perl, http://makeashorterlink.com/