Re: Remove last 10 lines of all files in a directory
- From: usenet@xxxxxxxxxxxxxxx
- Date: 26 Sep 2006 13:50:21 -0700
rsarpi@xxxxxxxxx wrote:
Objective: remove last 10 lines of *all* files in a directory
#!/usr/bin/perl
use strict; use warnings;
use Tie::File;
foreach my $filename(glob('/path/to/my/*.*')) {
tie my @file, 'Tie::File', $filename or die "oops - $!";
@file = @file[ 0 .. ($#file - 10) ];
untie @file;
}
__END__
.
- Follow-Ups:
- Re: Remove last 10 lines of all files in a directory
- From: DJ Stunks
- Re: Remove last 10 lines of all files in a directory
- References:
- Remove last 10 lines of all files in a directory
- From: rsarpi
- Remove last 10 lines of all files in a directory
- Prev by Date: Remove last 10 lines of all files in a directory
- Next by Date: Re: Remove last 10 lines of all files in a directory
- Previous by thread: Remove last 10 lines of all files in a directory
- Next by thread: Re: Remove last 10 lines of all files in a directory
- Index(es):
