Re: Removing lines from files

#!/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]

Comment on Re: Removing lines from files Download Code

Replies are listed 'Best First'.
Re^2: Removing lines from files by learningperl01 (Beadle) on May 13, 2008 at 14:25 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]
Re^3: Removing lines from files by jwkrahn (Abbot) on May 13, 2008 at 21:52 UTC
The way the code works only one line at a time will ever be in memory and the files are processed in the order they appear in the `@ARGV` array.	[reply] [d/l]