Wil — Mon, 03 Feb 2003 10:24:28 +0000

Hi Mark

I'd use something like this to grab all image links and prepend an URL. (untested code):

#!/usr/bin/perl

    use strict;

    my $input_file = "input.html";
    my $image_location = "http://www.domain.com/";

    use HTML::TokeParser;
    my $p = HTML::TokeParser->new($input_file);

    while (my $token = $p->get_tag("img")) {

        my $src = $token->[1]{src};
        print $image_location . $src;
    }  

Mark Hensler — Sun, 02 Feb 2003 19:32:17 +0000

I never got that deep into Perl. Can you show me how HTML::TokeParser would work?

Wil — Sun, 02 Feb 2003 13:05:34 +0000

Why not use HTML::TokeParser ?

thanks!

critical — Sun, 02 Feb 2003 13:04:59 +0000

Mark - thank you - it definitely works - someday I'll get around to try to understand *how* it works

Regarding the full path to images - I've got a .cgi script in the cgi-bin dynamically creating a web page - without the full path the images will be looked for in the cgi-bin and will not display.

Renegade — Sun, 02 Feb 2003 09:32:24 +0000

is it really a good idea to have the full path? it will make the site longer to load...

Mark Hensler — Sun, 02 Feb 2003 08:23:35 +0000

Woohoo, I love regex!

input.html:

this is a line
<img src="sample.gif" height="1" width="1">
<b>this is line 3</b>
<input type="image" src="sample2.gif">
line 5

test.pl:

#!/usr/bin/perl

$input_file = "input.html";
$image_location = "http://www.domain.com/";

open (FILE, "$input_file") || die ("Couldn't open guestbook entries file.");
@input = <FILE>;
close (FILE);

foreach $html_line (@input) {
    $html_line =~ s/((['])?(["])?)((?(2)([^']+?)|([^"]+?))\.gif)(?(2)'|")/$1$image_location$4$1/g;
    print $html_line;
}

output:

this is a line
<img src="http://www.domain.com/sample.gif" height="1" width="1">
<b>this is line 3</b>
<input type="image" src="http://www.domain.com/sample2.gif">
line 5

'
I haven't used perl much lately. I can remember how to say "I want a single or double quote, then a string, then another quote like the one I got before". So I did it the round about way. Not bullet proof, but it passed my simple input.html test. I can write a better PHP script because I know how to do the quote matching there.

necrotic — Sun, 02 Feb 2003 04:57:59 +0000

Maybe it's mistaking TYPE for SRC.