Good luck :) cpanm Path::Tiny 
#!/usr/bin/perl --
##
##
## perltidy -olq  -csc -csci=3 -cscl="sub : BEGIN END " -otr -opr -ce 
+-nibc -i=4 -pt=0   "-nsak=*"
## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END if " -otr -opr 
+-ce -nibc -i=4 -pt=0   "-nsak=*"
#!/usr/bin/perl --
use strict;
use warnings;
use Path::Tiny qw/ tempdir path /;

Main( @ARGV );
exit( 0 );

sub Main {
    my $dad = tempdir;
    MakeKids( $dad );
    for my $kid ( NotKids( $dad, 2, 2, 2 ) ) {
        ListAll( $dad );
        path( $kid )->remove_tree;
    }
    ListAll( $dad );
    $dad->remove_tree;    ## cleanup tempdir
} ## end sub Main

sub NotKids {
    my $dad = shift;
    my %notKid = map { $_ => !!1 } @_;
    my @nots;
    for my $kid ( $dad->children ) {
        if( not exists $notKid{ $kid->basename } ) {
            push @nots, $kid;
        }
    }
    return @nots;
} ## end sub NotKids

sub ListAll {
    my( $dad ) = @_;
    my $iter = path( $dad )->iterator( { recurse => 1, } );
    while( my $kid = $iter->() ) {
        print "$kid\n";
    }
    print "\n";
} ## end sub ListAll

sub MakeKids {
    my( $dad ) = @_;
    for my $ix ( 1 .. 3 ) {
        for my $iy ( 1 .. 3 ) {
            my $kid = path( $dad, $ix, $iy );
            $kid->touchpath->spew( "$kid" );
        }
    }
} ## end sub MakeKids

[download]

Perl Tutorial Hub

In reply to Re: Removing all directories recursively except one by Anonymous Monk
in thread Removing all directories recursively except one by javedakbar

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.