HTML::Rebase - rewrite HTML links to be relative to a given URL
use HTML::Rebase qw(rebase_html rebase_css);
my $html = <<HTML;
<html>
<head>
<link rel="stylesheet" src="http://localhost:5000/css/site.css" />
</head>
<body>
<a href="http://perlmonks.org">Go to Perlmonks.org</a>
<a href="http://localhost:5000/index.html">Go to home page/a>
</body>
</html>
HTML
my $local_html = rebase_html( "http://localhost:5000/about.html", $html );
print $local_html;
__END__
<html>
<head>
<link rel="stylesheet" src="css/site.css" />
</head>
<body>
<a href="http://perlmonks.org">Go to Perlmonks.org</a>
<a href="index.html">Go to home page/a>
</body>
</html>
Rewrites all HTML links to be relative to the given URL. This
only rewrites things that look like src=
and href=
attributes.
Unquoted attributes will not be rewritten. This should be fixed.
Rewrites all CSS links to be relative to the given URL. This
only rewrites things that look like url( ... )
.
If the HTML contains a <base>
tag, it's href=
attribute
is used as the page URL relative to which links are rewritten.
Instead of parsing the HTML into a DOM, performing the modifications and
then writing the DOM back out, this module uses a simplicistic regular
expressions to recognize href=
and src=
attributes and
to rewrite them.
The public repository of this module is https://github.com/Corion/html-rebase.
The public support forum of this module is https://perlmonks.org/.
Please report bugs in this module via the RT CPAN bug queue at https://rt.cpan.org/Public/Dist/Display.html?Name=HTML-Rebase or via mail to html-rebase-Bugs@rt.cpan.org.
Max Maischein corion@cpan.org
Copyright 2015-2018 by Max Maischein corion@cpan.org
.
This module is released under the same terms as Perl itself.