how to use truncate

sureshbabu · 10-28-2003, 11:38 PM

Hai Buddies

I am new bie to Perl scripting.

I have to maintain a file of certain size say 5 lines if it exceeds the limit
then i hve to truncate the remaining part

How can i achive this using perl scripting

reply me

suresh

yapp · 10-29-2003, 04:22 AM

well I guess this could work:

Code:

use Fcntl qw(:DEFAULT :flock);

sysopen(FH, "somefile.txt", O_RDWR) or die "Can't open file: $!\n";
flock(FH, LOCKEX);

# read 5 lines
my $line;
$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";

# close+unlock
close(FH);