in reply to Array Normalization of File::DirWalk
For depth 3, I tried this, using /usr/local/lib:
#!/usr/bin/perl use strict; use warnings; use diagnostics; use File::DirWalk; my $dir = '/usr/local/lib'; my $dw = new File::DirWalk; $dw->onDirEnter(sub { my ($dir) = @_; print "$dir\n"; return File::DirWalk::SUCCESS; }); $dw->setDepth(3); $dw->walk($dir);
In Section
Seekers of Perl Wisdom