Help for this page

Select Code to Download


  1. or download this
    use HTML::RewriteURLs;
my $html = <<HTML;
...
</body>
</html>
  2. or download this
    =head2 C<< rewrite_html >>

...
    # Rewrite relative to absolute
    $_[0] =~ s!((?:src|href)\s*=\s*(["']))(.+?)\2!$1 . relative_url(UR
+I::URL->new( $url ),"$3") . $2!ge;
}