Re: Removing lines from files

Perl is a poor choice for this operation. I would use a bourne shell script with standard unix utilities (assuming you're doing this on a unix box):

#!/bin/sh

DIR=$1

cd ${DIR}
find . -name '33dc01.*outer?log' -print | \
while read fn
do
  tail +5 ${fn} > ${fn}.deleting
  mv ${fn}.deleting ${fn}
done
[download]

Comment on Re: Removing lines from files Download Code

Replies are listed 'Best First'.
Re^2: Removing lines from files by Anonymous Monk on May 13, 2008 at 15:49 UTC
Using the code below how would I modify it so that only one file gets processed at a time. Meaning make the script wait until file1 is done with the removal/backup/deletion before it starts with file2? thanks again for the help `#!/usr/bin/perl use warnings; use strict; use File::Find; @ARGV == 1 or die "usage: $0 directory_name\n"; my @files; find sub { if ( -f and /^33dc01\..*outer\.log$/ ) { push @files, $File::Find::name; print "$File::Find::name\n"; } }, $ARGV[ 0 ]; ( $^I, @ARGV ) = ( '', @files ); while ( <> ) { next if $. <= 4; print; close ARGV if eof; }` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Removing lines from files
by Anonymous Monk on May 13, 2008 at 15:49 UTC

#!/usr/bin/perl
use warnings;
use strict;
use File::Find;

@ARGV == 1 or die "usage: $0 directory_name\n";

my @files;
find sub {
    if ( -f and /^33dc01\..*outer\.log$/ ) {  
        push @files, $File::Find::name;
        print "$File::Find::name\n";
        }
    }, $ARGV[ 0 ];

( $^I, @ARGV ) = ( '', @files );
while ( <> ) {
    next if $. <= 4;
    print;
    close ARGV if eof;

}
[download]

[reply]
[d/l]