Help for this page
open(MYFILE, ">>$myfile") || die; flock(MYFILE, 2) || die; print MYFILE "Cottleston Pie\n"; close(MYFILE);
#!/usr/bin/perl ... print "You are now in my list, $newfriend!\n" exit;
open(MYFILE, ">$myfile") || die;
flock FILEHANDLE, OPERATION
sub LOCK_SH { 1 } ## shared lock sub LOCK_EX { 2 } ## exclusive lock sub LOCK_NB { 4 } ## non-blocking sub LOCK_UN { 8 } ## unlock
#!/usr/bin/perl ... print "You are in my list, $newfriend!\n" exit;
flock(MYFILE, 1);
flock(MYFILE, 2);
open(MYFILE, "+< $myfile") || die;
seek(MYFILE, 0, 0); truncate(MYFILE, 0);
www.com | www.net | www.org
No recent polls found