User Rated at:
Rate This:
Select a rating... 5 .. Best 4 3 .. Average 2 1 .. Worst

A simple function to read html file find a tag and replace it with custom html code...

<!---Head--->
none

<!---Body--->

sub file_rep
{
my ($replace,$replacement,$html) = @_;

#be carful about cgi security if parsing value

$html =~ s/$replace/$replacement/;

return $html;
}

my $html;

open(file,"C:\windows\deskop\files.html") || die("This file will not open");
$html .= $_ while(<file>);
close(file);

$html = &file_rep("<!--tag-->","<b>bold text</b>",$html);

print "Content-type: text/htmlnn";
print $html;