note
almut
<p> ++, nice idea. Here's a variation of your approach, making
use of the <c>postprocess</c> option: </p>
<c>
#!/usr/bin/perl -l
use File::Find;
my @dirs;
find(
{ wanted => sub {},
postprocess => sub {
push @dirs, $File::Find::dir
if index $dirs[-1]||"", $File::Find::dir;
},
},
'/tmp/a'
);
print for @dirs;
</c>
828135
828145