Linux - NewbieThis Linux forum is for members that are new to Linux.
Just starting out and have a question?
If it is not in the man pages or the how-to's this is the place!
Welcome to LinuxQuestions.org, a friendly and active Linux Community.
You are currently viewing LQ as a guest. By joining our community you will have the ability to post topics, receive our newsletter, use the advanced search, subscribe to threads and access many other special features. Registration is quick, simple and absolutely free. Join our community today!
Note that registered members see fewer ads, and ContentLink is completely disabled once you log in.
use Fcntl qw(:DEFAULT :flock);
sysopen(FH, "somefile.txt", O_RDWR) or die "Can't open file: $!\n";
# read 5 lines
$line = <FH> for 1..5;
# trucate the file at the current byte position
my $pos = tell(FH);
truncate(FH, $pos) or die "Unable to truncate: $!\n";