Re: File::Find help

In your code, you are checking whether you have a file (-f). Maybe you want to do something there if you have a directory (-d)?

Note that you get the directory likely before all the files, so you might need to remember that you want to ~~unlink~~ rmdir a directory after you've successfully moved all the files.

Update Laurent_R noted the difference between unlink and rmdir.

Comment on Re: File::Find help Select or Download Code

Replies are listed 'Best First'.
Re^2: File::Find help by colox (Sexton) on Dec 02, 2017 at 09:53 UTC
Hi, Thank you for the reply. My dilemma is that the file (-f) could be way under multiple subdirectories. How can I effectively capture those so I can pass that to a variable to later do the unlink?	[reply]
Re^3: File::Find help by Corion (Patriarch) on Dec 02, 2017 at 10:07 UTC
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]	[reply] [d/l]
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
Re^6: File::Find help by colox (Sexton) on Dec 02, 2017 at 13:44 UTC
Some notes below your chosen depth have not been shown here


There's more than one way to do things
	PerlMonks