Replacing a line of text in an HTML file ???

Guest · Sep 3, 2003

I have a situation where I need to "Replace" a line of text in an HTML file.

The code I'm using does not "replace"... but instead, it adds another
line... effectively duplicating the number of lines each time the script
runs.

Below is a sample of my code:

###########################
sub main_page
{
open(MAIN,"$basedir/$mesgfile") || die $!;
@main = <MAIN>;
close(MAIN);

open(MAIN,">$basedir/$mesgfile") || die $!;
if ($followup == 0) {
foreach $main_line (@main) {

##---Title
if ($main_line =~ m//) {
print MAIN " <title>$title</title>\n";
}

##---Page Formatting
if ($main_line =~ m//) {
print MAIN " <body bgcolor=$BKcolor
text=\"#000000\" alink=\"#FF0000\" vlink=\"#FF00FF\" link=\"#0000FF\">\n";
}

##---Page Heading
if ($main_line =~ //) {
print MAIN " <FONT FACE=$HeadingFont
SIZE=$HeadingSize COLOR=$HeadingColor> $HeadingText </FONT>\n";
}

#######################################

Any help would be greatly appreciated.

John Bokma · Sep 3, 2003

NoSpamPlease said:
I have a situation where I need to "Replace" a line of text in an HTML file.

The code I'm using does not "replace"... but instead, it adds another
line... effectively duplicating the number of lines each time the script
runs.

Below is a sample of my code:

###########################
sub main_page
{
open(MAIN,"$basedir/$mesgfile") || die $!;
@main = <MAIN>;
close(MAIN);

open(MAIN,">$basedir/$mesgfile") || die $!;
if ($followup == 0) {

I don't know what this test does, but it nothing needs to be done if it
is not 0 then better put it before the open and:

return unless $followup == 0;

or even:

return if $followup;

foreach $main_line (@main) {

##---Title
if ($main_line =~ m//) {
print MAIN " <title>$title</title>\n";

next; # since we have processed this line I assume

}

##---Page Formatting
if ($main_line =~ m//) {
print MAIN " <body bgcolor=$BKcolor
text=\"#000000\" alink=\"#FF0000\" vlink=\"#FF00FF\" link=\"#0000FF\">\n";

next; # since we have processed this line I assume

}

##---Page Heading
if ($main_line =~ //) {
print MAIN " <FONT FACE=$HeadingFont
SIZE=$HeadingSize COLOR=$HeadingColor> $HeadingText </FONT>\n";

next; # since we have processed this line I assume

}

My guess is that you print $main_line here?

Tips:

use -w in the she bang line and put a use strict; in your code.

Also put some more info in your die, ie.
"Can't open file '$basedir/$mesgfile': $!"

Rodney · Sep 4, 2003

Thanks John... the next; function did the trick.

Php combine identical lines in text file	4	Oct 11, 2023
Working on mobile css menu with plenty of frustration!	2	Dec 29, 2022
Replacing a line	13	Aug 6, 2007
How to Create a random password generator in a separate window	4	May 26, 2022
Help with code	0	Jun 12, 2022
Why failing correcting new line at end of text file	1	Jul 29, 2009
Find a line in an html file	3	Jul 13, 2006
I Need Help with making a function that draws in a canvas using location data.	1	Dec 17, 2021

Replacing a line of text in an HTML file ???

Guest

John Bokma

Rodney

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads