Truncate a file : truncate « File « Perl

1. Perl
2. File
3. truncate

Truncate a file

    

#!/usr/bin/perl
use warnings;
use strict;

my $file = "data.txt";
my $truncate_to = 100;

open READ, "$file" or die "Cannot open: $! \n";
while (<READ>) {
    last if $. == $truncate_to;
}
my $size = tell READ;
print "$. lines read ($size bytes) \n";
exit if $. < $truncate_to;   # already shorter
close READ;

print "Truncating to $size bytes...";
open WRITE, "+< $file" or die "Cannot write: $! \n";
truncate WRITE, $size;
print "done \n";
close WRITE;

   
    
    
    
  

Related examples in the same category