Thanks

KoRnholio — Sun, 24 Dec 2000 01:31:38 +0000

Thanks Moc, it seems easier than I thought. I usually learn well from templates like that(learned C that way), so I can probably actually write programs now

Moc — Sat, 23 Dec 2000 22:47:11 +0000

thanks for the information japhy.

Buffering

japhy — Sat, 23 Dec 2000 21:07:11 +0000

When you close() a filehandle, its output buffer is flushed, and anything you've print()ed to the filehandle and hasn't yet been stored in the file is stored. close()ing a filehandle also kills any file locks on it, since the filehandle can't be locked if it's not around.

Calling flock(FH, before close(FH) thus allows something to modify the file IN BETWEEN THE TWO operations, and may end up messing up all the work you've done, since not everything you've asked to print to the file is necessarily there.

Re: No book required

Moc — Sat, 23 Dec 2000 18:41:31 +0000

Please explain.

Quote: Originally posted by japhy
And Moc, it's highly advisable to NOT call [b]flock(FH,, and to let the file lock on it disappear once the filehandle is closed. [/B]

No book required

japhy — Sat, 23 Dec 2000 14:08:44 +0000

You don't need to buy a book to tell you how to use Perl's functions -- read the documentation that comes with Perl, available via the perldoc program, or online at http://www.perldoc.com/.

And Moc, it's highly advisable to NOT call flock(FH,, and to let the file lock on it disappear once the filehandle is closed.

Moc — Sat, 23 Dec 2000 08:14:12 +0000

I think this is what you are asking so here goes. You need to have some routine read in the information passed by your form.

Which then you do the following :

# notice that the formdata is hash that is from the routine
# which parses the information submitted in the form.

$stuff = $formdata{'stuff'};

# This opens blah.txt and writes to the file, this
# overwrites the file if it has anything. If you don't want
# to overwrite the file and simply just append to the file
# use >> instead of the > below

open(LOG, ">/www/kain/blah.txt");
flock(LOG, 2);
print LOG "$stuff\n";
flock(LOG, 8);
close(LOG);