Return to Snippet

Revision: 531
at July 17, 2006 15:10 by micmath


Initial Code
open FILE, '< ./file.txt' or die $!;
flock FILE, 1 or die $!;
my $slurp = do{local $/; <FILE>};
flock FILE, 8;
close(FILE);
 
print $slurp;

Initial URL

                                

Initial Description

                                

Initial Title
Read a Whole File

Initial Tags

                                

Initial Language
Perl