Posted By

micmath on 07/17/06

Tagged

Viewed 993 times

Favorited by 1 user(s)

/ Published in: Perl

Expand | Embed | Plain Text

Copy this code and paste it in your HTML

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

Comment:

You need to login to post a comment.