Wise Monks,

It's hard to say what I need, so I use some examples:
I have directiories: 
/root
 +dir1
  +1a
  +1b
 +dir2
  +2a
  +2b
  +2c

[download]
without exceptions my directiories list shoud look: 
/root

[download]
with exception on /root/dir2/2b: 
/root/dir1
/root/dir2/2a
/root/dir2/3a

[download]
So, I use some code from runrig on How do I recurse all *but* a few directories? and I've made this: 
use File::Find;
my @abs_dirs = qw ( /usr/local/share/locale );
my %abs_dirs;
@abs_dirs{@abs_dirs} = ();
my @OK_dir;
my %all;
find(
    sub {
        $File::Find::prune = 1, return
          if -d and ( exists $abs_dirs{$File::Find::name} );
        my $dir = $File::Find::name;
        return if -f $dir;
        if ( ( grep { $_ =~ m/$dir/ } @abs_dirs ) and ( !exists $all{$
+dir} ) ) {
            $all{$dir};
        }
        else {
            push @OK_dir, $dir;
            $File::Find::prune = 1;
            return;
        }
    },
    "/usr/local/"
);

[download]
It works, but I wonder if is any better way to do it? I dont't think about usless $all{$dir}, but about totally difrent way.
Thanks for your help and time,

greetz, Uksza

Yes, smart people know that fat arrow autoquotes the left argument. But why should you require your code to be maintained by smart people?
Randal L. Schwartz, Perl hacker

2006-02-21 Retitled by planetscape, as per Monastery guidelines
Original title: 'Directiories without recursion and exceptions'

In reply to Directories without recursion and exceptions by uksza

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.