Re: Array Normalization of File::DirWalk

[Khen1950fx]

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);