note
Khen1950fx
Try this:
<c>
#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use HTML::FormatText::WithLinks;
my $html = get(
"http://www.perlmonks.org/?node=Recently%20Active%20Threads"
);
my $f = HTML::FormatText::WithLinks->new(
base => "http://www.perlmonks.org/",
unique_links => 1,
link_num_generator => \&generator,
before_link => '[%n]',
footnote => '%n est %l'
);
sub generator()
{
my $num = shift;
$num += 1;
return $num;
}
print $f->parse($html);
</c>
1007777
1007777