Here is my take on this. It is pretty similar, except the tag attributes ( src=... alt=...)are printed in the order they appear in the original text (you could also achieve this, if you used 'attrseq'). I however, use HTML::TokeParse and URI, and this one only modifies absolute urls (like links to other http|ftp sites, unlike yours, which will turn a 'mailto:foo@bar.baz.com' into $new_url.'mailto:foo@bar.baz.com'), but can easily be extended to modify any kind of URIs (that is Uniform Resource Identifier, not just Locator's ;D). If you were goning to make this more modular, i'd sugguest not doing it this way (extend HTML::Parser instead, but for a script, this is the perfect strategy, IMHO). Here goes:

#!/usr/bin/perl -w
use strict;
use LWP::Simple qw(get);
use HTML::TokeParser;
use URI;

my $new_link = "http://www.baz.com/cgi-bin/doubleclick.cgi?url=";

my $url = $ARGV[0] or die "usage: ". __FILE__ ." http://www.foo.com/ba
+r.html\n";

my $file = get($url) or die "Cannot get the page '$url'\n";

my $P = HTML::TokeParser->new(\$file);

while (my $T = $P->get_token() )
{                     #   0     1     2       3        4
    if($$T[0] eq "S") # ["S", $tag, $attr, $attrseq, $text]
    {
        if($$T[1] eq 'img')
        {
            &handle_link($T, 'src');
        }
        elsif($$T[1] eq 'a')
        {
            &handle_link($T, 'href');
        }
        elsif($$T[1] eq 'script')
        {
            &handle_link($T, 'src');
        }
        else # nothing we wanna change
        {
            print $$T[4];
        }
    }
    elsif($$T[0] =~ /^(?:E|PI)$/ ) # end tag | process instruction
    {
        print $$T[2];
    }
    elsif($$T[0] =~ /^(?:T|C|D)$/ ) # text | comment | declaration
    {
        print $$T[1];
    }
} # endof while (my $T = $P->get_token)


sub handle_link
{
    my ( $T, $A) = @_;
    my $URI = new URI( $$T[2]->{$A} );

#   0     1     2       3        4
# ["S", $tag, $attr, $attrseq, $text]
    my $scheme = $URI->scheme();

    if( $scheme and $scheme =~ /^(http|ftp)$/i ) # only if its not rel
+ative url (yes scheme)
    {
        $$T[2]->{$A} = $new_link . $URI->path(); # path is escaped
    }

    print "<$$T[1]",
          ( map { qq| $_="$$T[2]->{$_}"| }
                @{$$T[3]}
          )
          , '>';
}

[download]

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, 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, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

Outside of code tags, you may need to use entities for some characters:

	For:		Use:
	&		&
	<		&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.