/usr/share/doc/libhtml-formattext-withlinks-perl/examples/custom_numbers.pl is in libhtml-formattext-withlinks-perl 0.15-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 27 28 29 30 31 32 33 34 35 36 37 38 39 | #!/usr/bin/perl
use strict;
use warnings;
use Roman;
use LWP::Simple;
use HTML::FormatText::WithLinks;
=head1 DESCRIPTION
This examples uses the custom number generation option to generate
the footnote numbers as latin numerals.
It also demonstrates how to place the footnote indicators after the
link instead of in front which is the default.
=cut
my $html = get("http://exo.org.uk/");
my $f = HTML::FormatText::WithLinks->new(
base => "http://exo.org.uk/",
unique_links => 1,
link_num_generator => \&generator,
# fear my dodgy latin...
before_link => '',
after_link => '[%n]',
footnote => '%n est %l'
);
sub generator()
{
my $num = shift;
# Romans didn't get zero...
$num += 1;
return uc roman($num);
}
print $f->parse($html);
|