note
moritz
<p>FWIW if the directory structure is always <c>DIR$N/001.$EXT</c>, it has a fixed depth and you don't even need File::Find(::Rule), a simple [doc://glob] is enough:</p>
<code>
use strict;
use warnings;
my %seen;
while (my $file = glob 'Dir*/*') {
(my $base = $file) =~ s/\.\w+$//;
next if $seen{$base};
# work with $file here
}
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-616540">
[http://perl6.org/|Perl 6 - the future is here, just unevenly distributed]
</div></div>
1074140
1074140