script to move files out of recursive subdirectories into one parent directory

[publishasap]

does anyone have a perl script that will take all the files out of recursive subdirectories and move them into one parent directory ... have searched to the end of the earth and can't find anything.

[eWish]

Yes, I have such a script. Why do you ask?

--Kevin

[numberwhun]

I am sure that any of use here could produce one, but that would not help you learn how to do it. Besides, this is not a scripting service, but instead is a learning forum.

Why not try to do it and post your code here if you get stuck.

Regards,

Jeff

[fbnewtz]

very simple.

find . -type f -exec mv {} /path/to/directory \;

Thanks,

Fred

[numberwhun]

@fbnewtz
That is one way to do it using shell, but this is a Perl forum and if you read the thread, we are waiting for the OP to post the code that they have been trying.

Regards,

Jeff