1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use HTML::FormatText::WithLinks;
=head1 DESCRIPTION
This script shows the basic usage of the module.
The two options used are the base one to make sure that any relative links
in the page are turned into absolute links and unique_links which only
generates one footnote per link.
=cut
my $html = get("http://exo.org.uk/");
my $f = HTML::FormatText::WithLinks->new(
base => "http://exo.org.uk/",
unique_links => 1
);
print $f->parse($html);
|
