micmath on 07/17/06
Last Edited at 07/17/06 03:10pm
open FILE, '< ./file.txt' or die $!;flock FILE, 1 or die $!;my $slurp = do{local $/; <FILE>};flock FILE, 8;close(FILE); print $slurp;
Report this snippet Tweet
Comment:
You need to login to post a comment.