Re^3: File::Find help

Whenever you find a directory, remember it to be deleted afterwards?

my @to_be_deleted;

File::Find( ..., sub {
    if( -d $File::Find::name ) {
        print "'$File::Find::name' should be deleted later\n";
        # push @to_be_deleted, $File::Find::name;
    };
};

rmdir @to_be_deleted; # boom
[download]

Comment on Re^3: File::Find help Download Code

Replies are listed 'Best First'.
Re^4: File::Find help by colox (Sexton) on Dec 02, 2017 at 13:19 UTC
great thanks much!... Follow-up to this, I hope you could also help me below: How about using Find::File to copy the subfolder + filename to another folder. Like: DIR_A/SUB_A/FILE_A ----> DIR_B/SUB_A/FILE_A Appreciate much your inputs.	[reply]
Re^5: File::Find help by marto (Cardinal) on Dec 02, 2017 at 13:29 UTC
Why not read the documentation, make an attempt yourself, and report back with your efforts and how it didn't work? How do I post a question effectively?	[reply]
Re^6: File::Find help by colox (Sexton) on Dec 02, 2017 at 13:44 UTC
Yes. I did try File::Copy::Recursive & use dircopy(). But i just get: `Undefined subroutine &main::dircopy called` [download] there was no issue in installing the module, it was successful	[reply] [d/l]
Re^7: File::Find help by poj (Abbot) on Dec 02, 2017 at 13:49 UTC
Re^8: File::Find help by colox (Sexton) on Dec 02, 2017 at 13:52 UTC