Have a look at the URI module. It will let you rewrite an URL in terms of its relation to another URL. You create a URI object of the URL you want to rewrite, and then you simply ask the object to print out how to get to it, relative to where you are now.

Playing with code makes it easy to understand. Have a look what this prints out.

#! /usr/bin/perl -w

use strict;

use URI;

my $image = 'http://www.example.com/img/navleft1.jpg';
my $i = URI->new($image);

print 'relative ', $i->rel('http://www.example.com/story/page4.html'),
+ "\n";
print 'relative ', $i->rel('http://www.example.com/story/down/here/pag
+e6.html'), "\n";

[download]

That said, I believe (although I could be wrong) that the most efficient way to reference an URL it to give it the absolute path relative to the current host. Which means in your case, you want to emit '/img/navleft1.jpg'. In which case all you have to do is use the path method. The result of this is that you minimise the number of directories you have to stat.

update: I didn't remember to say this earlier, but another approach would be to build an image server: a web server that is tuned specifically to pumping out static objects (thus, images) on a separate host.


print@_{sort keys %_},$/if%_=split//,'= & *a?b:e\f/h^h!j+n,o@o;r$s-t%t#u'

In reply to Re: Using HTML templates by grinder
in thread Using HTML templates by citro

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.