Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: File Locking

by sligi (Sexton)
on Nov 16, 2001 at 02:11 UTC ( #125700=note: print w/replies, xml ) Need Help??


in reply to File Locking

Hmm... Seems like you have empty @friends there. The loop should probably be something like:
while(<MYFILE>) { if (m/^$newfriend$/) { print "You are already on the list!\n"; exit; } push @friends, $_; }
...or one could of course concatenate to the file.

--
Jaska