open(MYFILE, ">>$myfile") || die;
flock(MYFILE, 2) || die;
print MYFILE "Cottleston Pie\n";
close(MYFILE);
####
#!/usr/bin/perl
print "Content-type: text/html\n\n";
$myfile = "friends.txt";
$newfriend = $ENV{'QUERY_INFO'};
open(MYFILE, "$myfile") || die;
while() {
if (m/^$newfriend$/) {
print "You are already on the list!\n";
exit;
}
}
close(MYFILE);
push(@friends, $newfriend);
open(MYFILE, ">$myfile") || die;
print MYFILE @friends;
close(MYFILE);
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 "Content-type: text/html\n\n";
$myfile = "friends.txt";
$newfriend = $ENV{'QUERY_INFO'};
open(MYFILE, "$myfile") || die;
flock(MYFILE, 1);
while() {
if (m/^$newfriend$/) {
print "You are already on the list!\n";
exit;
}
}
close(MYFILE);
push(@friends, $newfriend);
open(MYFILE, "+< $myfile") || die;
flock(MYFILE, 2);
seek(MYFILE, 0, 0); truncate(MYFILE, 0);
print MYFILE @friends;
close(MYFILE);
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);