Tedh — Wed, 02 May 2007 11:45:05 +0000

Abhishek, that works a treat. Many, many thanks.

I'm able to replace an entire lower part of html page no problem (which is one of my objectives).

I ended up putting the new stuff into a variable

#!perl

use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
print "Content-type: text/html\n\n";
# Variables
$file = "test.html"; # Page to edit
$mark="<!--a-->";
$newstuff = "<!--a-->\nAll my new stuff";

# Open the file #######
open(TFL, "<$file") || die "Can't open $file\n";
@thefile=<TFL>;
close(TFL);

sub replace_from_mark {
    my ($mark, $newstuff, $text) = @_;
    $text =~ s/$mark.*/$newstuff/gs;
    return $text;
}

# Replace it

open(TFL, ">$file") || die "Can't open $file\n";
$text = replace_from_mark("$mark\n", "$newstuff\n<\/body>\n<\/html>\n", join("", @thefile));
print TFL $text;
close(TFL);
print "The code has been replaced\n";
exit;
# end

Tedh — Wed, 02 May 2007 09:32:27 +0000

Thanks Abhishek,
I'll check this out soon (in the middle of some work at moment) and let you know how it goes.

cheers - Ted

Abhishek Reddy — Wed, 02 May 2007 04:19:53 +0000

You probably want something like this:

sub replace_from_mark {
    my ($mark, $newstuff, $text) = @_;
    $text =~ s/$mark.*/$newstuff/gs;
    return $text;
}

# ...

open(TFL, ">$file") || die "Can't open $file\n";
$text = replace_from_mark("<!--a-->\n",
                          "New Stuff\n</body>\n</html>\n",
                          join("", @thefile));
print TFL $text;
close(TFL);

Instead of walking every line, it uses a regular expression substitution.

Good.Things — Tue, 01 May 2007 19:50:14 +0000

I don't know what language this is but I can almost assure you this is the line you want to modify :

if($line =~ //i)

It's controlling everything else more or less.