Reference

WWW::Shorten::BabyURL(3pm)

WWW::Shorten::BabyURL - Perl interface to BabyURL.com

  use WWW::Shorten 'BabyURL';

  $short_url = makeashorterlink($long_url);

  $long_url  = makealongerlink($short_url);
  $long_url  = makealongerlink($nickname);

A Perl interface to the web site BabyURL.com. BabyURL.com simply maintains a database of long URLs, each of which has a unique identifier. The function "makeashorterlink" will call the BabyURL.com web site passing it your long URL and will return the shorter (BabyURL) version. The function "makealongerlink" does the reverse. "makealongerlink" will accept as an argument either the full BabyURL URL or just the BabyURL identifier/nickname. If anything goes wrong, then either function will return "undef". Multiple submissions of the same URL will result in the same code being returned.
EXPORT makeashorterlink, makealongerlink See the main WWW::Shorten docs. Iain Truskett <[email protected]> WWW::Shorten, perl, <http://BabyURL.com/>