Mark Hensler — Wed, 23 Aug 2000 06:50:31 +0000

that won't work for stuff in subdirectories, like:
http://blah.com/my_dir/

not tested:

$BaseURL = "http://"."$ENV{HTTP_HOST}"."$ENV{REQUEST_URI}";
$BaseURL =~ /(.*)\/(.*).(.*)/;
$BaseURL = "http=\"$1/";

open(FILE, "your.html");
$ThePage = join("|break|", <FILE>);
close(FILE);

$ThePage =~ s/http="/$BaseURL/g;
$ThePage =~ s/\|break\|/\n/g;

Ken Elliott — Wed, 23 Aug 2000 03:14:30 +0000

Here is a some regular expressions that will do it. Just substitute $url with the url to be used and $file to the file to be searched. It's not tested so check for errors.

#!/usr/bin/perl -w #change to yer perl root

$url = "href=\"http://www.bleh.com/";
#you have to have href=" in it to replace the match
$file = "file.html";

open (FILE, < "$file");
@contents = ;
close (FILE);

foreach $line(@contents) {
$line =~ s/href="/$url/;
}

This will replace every occurance of - href=" - so if you have some that you don't want to be changed...banners etc. You will need to change them back.

VulKen
What the world needs, is more tutorials!