Snippet Library

This little peice of code will write to a file that you tell it.

the contents depend on what you put in the PRINT line. this will also lock the file so nobody can write to it at the same time you are. then it will unlock it and close it.

very good for a flat file database for guestbooks and counters.

none

 #!usr/bin/perl
$Datafile = "data.txt";

open(THEFILE,">>$Datafile") || die "Can't open $Datafile: !$n";
flock(THEFILE, 2); #Lock

print THEFILE "whatever you put here will be written to the filen";
flock(THEFILE, 8); #Free
close(THEFILE);