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);
An Englishman in New York An American Werewolf in London An American in Paris The Innocents Abroad An Idiot Abroad Robinson Crusoe on Mars A Connecticut_Yankee in King Arthur's Court There and Back Again Travels into Several Remote Nations of the World
Results (72 votes). Check out past polls.