Re^3: File::Find help


Think about Loose Coupling
	PerlMonks

Re^3: File::Find help

by Corion (Patriarch)

on Dec 02, 2017 at 10:07 UTC ( [id://1204712]=note: print w/replies, xml )

Need Help??

in reply to Re^2: File::Find help
in thread 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

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://1204712]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others studying the Monastery: (2)

As of 2024-04-26 01:33 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found