---
name: "WWW::Shorten::OneShortLink"
section: "3pm"
platform: "linux"
package: "libwww-shorten-perl"
version: "1.88-3"
release: "Debian 6.0 (Squeeze)"
platforms: ["linux"]
url: "https://new.carta.tech/WWW::Shorten::OneShortLink"
---

# WWW::Shorten::OneShortLink(3pm)

WWW::Shorten::OneShortLink - Perl interface to 1sl.net

```
  use WWW::Shorten::OneShortLink;
```

```
  use WWW::Shorten 'OneShortLink';
```

```
  $short_url = makeashorterlink($long_url);
```

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

A Perl interface to the web site 1sl.net. OneShortLink simply maintains a database of long URLs, each of which has a unique identifier. The function `"makeashorterlink"` will call the OneShortLink web site passing it your long URL and will return the shorter OneShortLink version. The function `"makealongerlink"` does the reverse. `"makealongerlink"` will accept as an argument either the full OneShortLink URL or just the OneShortLink identifier. If anything goes wrong, then either function will return `"undef"`.\
 **EXPORT** makeashorterlink, makealongerlink See the main WWW::Shorten docs. Maintained by Iain Truskett \<spoon@cpan.org\> Original by P J Goodwin. WWW::Shorten, perl, \<http://1sl.net/\>