---
name: "WWW::Shorten::SmLnk"
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::SmLnk"
---

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

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

```
  use WWW::Shorten::SmLnk;
```

```
  use WWW::Shorten 'SmLnk';
```

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

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

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