1WWW::Shorten(3) User Contributed Perl Documentation WWW::Shorten(3)
2
3
4
6 WWW::Shorten - Interface to URL shortening sites.
7
9 #!/usr/bin/env perl
10 use strict;
11 use warnings;
12
13 use WWW::Shorten 'TinyURL'; # Recommended
14 # use WWW::Shorten 'Linkz'; # or one of the others
15 # use WWW::Shorten 'Shorl';
16
17 # Individual modules have have their own syntactic variations.
18 # See the documentation for the particular module you intend to use for details
19
20 my $url = 'https://metacpan.org/pod/WWW::Shorten';
21 my $short_url = makeashorterlink($url);
22 my $long_url = makealongerlink($short_url);
23
24 # - OR -
25 # If you don't like the long function names:
26
27 use WWW::Shorten 'TinyURL', ':short';
28 my $short_url = short_link($url);
29 my $long_url = long_link( $short_url );
30
32 A Perl interface to various services that shorten URLs. These sites
33 maintain databases of long URLs, each of which has a unique identifier.
34
35 # DEPRECATION NOTICE
36
37 The following shorten services have been deprecated as the endpoints no
38 longer exist or function:
39
40 · WWW::Shorten::LinkToolbot
41
42 · WWW::Shorten::Linkz
43
44 · WWW::Shorten::MakeAShorterLink
45
46 · WWW::Shorten::Metamark
47
48 · WWW::Shorten::TinyClick
49
50 · WWW::Shorten::Tinylink
51
52 · WWW::Shorten::Qurl
53
54 · WWW::Shorten::Qwer
55
56 When version 3.100 is released, these deprecated services will not be
57 part of the distribution.
58
60 A very simple program called shorten is supplied in the distribution's
61 bin folder. This program takes a URL and gives you a shortened version
62 of it.
63
65 Please submit any issues <https://github.com/p5-shorten/www-
66 shorten/issues> you might have. We appreciate all help, suggestions,
67 noted problems, and especially patches.
68
69 Note that support for extra shortening services should be released as
70 separate modules, like WWW::Shorten::Googl or WWW::Shorten::Bitly.
71
72 Support for this module is supplied primarily via the using the GitHub
73 Issues <https://github.com/p5-shorten/www-shorten/issues> but we also
74 happily respond to issues submitted to the CPAN RT
75 <http://rt.cpan.org/NoAuth/ReportBug.html?Queue=WWW-Shorten> system via
76 the web or email: "bug-www-shorten@rt.cpan.org"
77
78 * https://github.com/p5-shorten/www-shorten/issues *
79 http://rt.cpan.org/NoAuth/ReportBug.html?Queue=WWW-Shorten * ( shorter
80 URL: http://xrl.us/rfb ) * "bug-www-shorten@rt.cpan.org"
81
83 Iain Truskett "spoon@cpan.org"
84
86 · Alex Page -- for the original LWP hacking on which Dave based his
87 code.
88
89 · Ask Bjoern Hansen -- providing WWW::Shorten::Metamark
90
91 · Chase Whitener "capoeirab@cpan.org"
92
93 · Dave Cross dave@perlhacks.com -- Authored WWW::MakeAShorterLink on
94 which this was based
95
96 · Eric Hammond -- writing WWW::Shorten::NotLong
97
98 · Jon and William (wjr) -- smlnk services
99
100 · Kazuhiro Osawa "yappo@cpan.org"
101
102 · Kevin Gilbertson (Gilby) -- TinyURL API information
103
104 · Martin Thurn -- bug fixes
105
106 · Matt Felsen (mattf) -- shorter function names
107
108 · Neil Bowers "neilb@cpan.org"
109
110 · PJ Goodwin -- code for WWW::Shorten::OneShortLink
111
112 · Shashank Tripathi "shank@shank.com" -- for providing
113 WWW::Shorten::SnipURL
114
115 · Simon Batistoni -- giving the `makealongerlink` idea to Dave.
116
117 · Everyone else we might have missed.
118
119 In 2004 Dave Cross took over the maintenance of this distribution
120 following the death of Iain Truskett.
121
122 In 2016, Chase Whitener took over the maintenance of this distribution.
123
125 Copyright (c) 2002 by Iain Truskett.
126
127 This library is free software; you can redistribute it and/or modify it
128 under the same terms as Perl itself.
129
131 CGI::Shorten, WWW::Shorten::Simple
132
133
134
135perl v5.30.0 2019-07-26 WWW::Shorten(3)