in reply to Processing directories (again) with File::Find
To get the order of files correct, I think you would be better off using the preprocess method of File::Find. Applying a sort on the contents of a subdir, before the call to \&Wanted.
From the PODuse File::File; find( { wanted=>\&Wanted , preprocess=>\&PreProcess , } $dir ); sub PreProcess { return sort { $a cmp $b } @_; } sub Wanted { if ( $_ =~ /\d+\.\d+/ ) { open ( FILE , $_ ) or die "Screaming $!"; my @lines = <FILE>; doStuffwith(@lines); } else { return } }
Tuning the sort in PreProcess will allow you to work on files in the order that you want. I suspect you'd want to filter out '.' and '..' and any other undesirable directories so that Wanted is only working on ... the files you want!
|
|---|