Re: Readdir against large number of files

in reply to Readdir against large number of files

Where's your state variable?

    my $printing = 0;
    while (<UNMODIFIED>) {
        if ($printing) {
            print MODIFIED $_;
            next;
        }
        $printing++ if /STRUC20/;
    }
[download]

Also, you don't need the /bin/mv, just use unlink and rename.

Comment on Re: Readdir against large number of files Select or Download Code

Replies are listed 'Best First'.
Re^2: Readdir against large number of files by Not_a_Number (Prior) on Oct 28, 2009 at 20:34 UTC
Why the `next`?	[reply] [d/l]
Re^3: Readdir against large number of files by gmargo (Hermit) on Oct 28, 2009 at 22:50 UTC
Because additional regular expression comparisons are pointless.	[reply]

In Section Seekers of Perl Wisdom