Mark Hensler — Sun, 10 Sep 2000 23:31:59 +0000

your gonna want to parse the user input for
if they put that in their input, there will be instances of

$file = 'C:\windows\desktop\data.txt';
{
	local $/;
	open(IN,$file) or die "Cannot open $file to read: $!";
	$html = <IN>;
	close(IN);
}
$newinput = /<TOP>/&lt;TOP&gt;/g;
$html =~ s/<TOP>/<TOP>\n$newinput<br>/;

open(IN,">$file") or die "Cannot open $file to write: $!";
print IN $html;
close(IN);

Rob Pengelly — Sat, 09 Sep 2000 12:40:12 +0000

Try using the following:

 
$file = 'C:\windows\desktop\data.txt';
{
	local $/;
	open(IN,$file) or die "Cannot open $file to read: $!";
	$html = <IN>;
	close(IN);
}
$html =~ s/<TOP>/<TOP>\n$newinput<br>/;

open(IN,">$file") or die "Cannot open $file to write: $!";
print IN $html;
close(IN);

To search/replace use a regular expression like above
$variable =~ s/SEARCH FOR/REPLACE WITH/g;
the g modifier is optional, what it does is look more than once through a file to find what you are searching for. But considering there is only one in your file, it is not required.

Hope that helps.