I've inserted text into a file before, but I can't seem to figure this one
out. I'm trying to create a guestbook / message list. I'm taking
information from a form and trying to insert it at a certain spot in a
file, namely, the top of the list. My form works fine and I have no trouble
getting the information into the file, but it keeps appending to the end of
the file.
These are the first few lines in guestbook.html:
<html>
<head>
</head>
<body>
<table cellspacing=2 cellpadding=4 border=0>
<!-- TOP -->
.... list of entries in table form ....
Perl program snippet:
open( GBOOK, "+<../htdocs/guestbook.html" ) or die( "Couldn't open GBOOK:
$!\n" );
# Find top of list and insert entry
while( <GBOOK> )
{
if( /^<!-+\s+TOP\s+-+>$/ )
{
print GBOOK "found TOP<br>\n";
... # add new entry
}
}
close( GBOOK ) or die( "Couldn't close GBOOK: $!\n" );
Originally, I had the first line of the while() as
next unless /^<!-- TOP -->$/ ;
but that didn't work either, so since then it has been kludged into the
above version.
My confusion is apparent in these questions:
1. Why doesn't my regex work?
2. Why does the entry get added at the end of the file if the regex
failed?
Thanks for any help you can provide,
Morgan
[EMAIL PROTECTED]
