Re: Removing lines from files

[markkawika]

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

[Anonymous Monk]

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;

}