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 'Bitly'; # or one of the others
15
16 # Individual modules have have their own syntactic variations.
17 # See the documentation for the particular module you intend to use for details
18
19 my $url = 'https://metacpan.org/pod/WWW::Shorten';
20 my $short_url = makeashorterlink($url);
21 my $long_url = makealongerlink($short_url);
22
23 # - OR -
24 # If you don't like the long function names:
25
26 use WWW::Shorten 'TinyURL', ':short';
27 my $short_url = short_link($url);
28 my $long_url = long_link( $short_url );
29
31 A Perl interface to various services that shorten URLs. These sites
32 maintain databases of long URLs, each of which has a unique identifier.
33
35 The following shorten services have been deprecated as the endpoints no
36 longer exist or function:
37
38 • WWW::Shorten::LinkToolbot
39
40 • WWW::Shorten::Linkz
41
42 • WWW::Shorten::MakeAShorterLink
43
44 • WWW::Shorten::Metamark
45
46 • WWW::Shorten::TinyClick
47
48 • WWW::Shorten::Tinylink
49
50 • WWW::Shorten::Qurl
51
52 • WWW::Shorten::Qwer
53
54 When version 3.100 is released, these deprecated services will not be
55 part of the distribution.
56
58 A very simple program called shorten is supplied in the distribution's
59 bin folder. This program takes a URL and gives you a shortened version
60 of it.
61
63 Please submit any issues <https://github.com/p5-shorten/www-
64 shorten/issues> you might have. We appreciate all help, suggestions,
65 noted problems, and especially patches.
66
67 * If you know of a shorten service that we don't already have, make
68 your own service and release it as a separate module, like
69 WWW::Shorten::Googl or WWW::Shorten::Bitly. Alternatively, you can let
70 us know and we'll be happy to work it up for you.
71
73 Iain Truskett "spoon@cpan.org"
74
76 • Alex Page -- for the original LWP hacking on which Dave based his
77 code.
78
79 • Ask Bjoern Hansen -- providing WWW::Shorten::Metamark
80
81 • Chase Whitener "capoeirab@cpan.org"
82
83 • Dave Cross dave@perlhacks.com -- Authored WWW::MakeAShorterLink on
84 which this was based
85
86 • Eric Hammond -- writing WWW::Shorten::NotLong
87
88 • Jon and William (wjr) -- smlnk services
89
90 • Kazuhiro Osawa "yappo@cpan.org"
91
92 • Kevin Gilbertson (Gilby) -- TinyURL API information
93
94 • Martin Thurn -- bug fixes
95
96 • Matt Felsen (mattf) -- shorter function names
97
98 • Neil Bowers "neilb@cpan.org"
99
100 • PJ Goodwin -- code for WWW::Shorten::OneShortLink
101
102 • Shashank Tripathi "shank@shank.com" -- for providing
103 WWW::Shorten::SnipURL
104
105 • Simon Batistoni -- giving the `makealongerlink` idea to Dave.
106
107 • Everyone else we might have missed.
108
109 In 2004 Dave Cross took over the maintenance of this distribution
110 following the death of Iain Truskett.
111
112 In 2016, Chase Whitener took over the maintenance of this distribution.
113
115 Copyright (c) 2002 by Iain Truskett.
116
117 This library is free software; you can redistribute it and/or modify it
118 under the same terms as Perl itself.
119
121 CGI::Shorten, WWW::Shorten::Simple
122
123
124
125perl v5.38.0 2023-07-21 WWW::Shorten(3)