Descending into a folder and...

[FreeBASE]

Can anyone help me...

Basically I have a folder that contains folders with data.
What I am trying to do is descend into each folder (2 levels) and move the contents up (two levels) then conmtinue to the next folder in the list and repeat the same action.

Confused???

Example:
(BEFORE)

MAIN/
    FOLDER_1/
        FOLDER_A/
           DATA1.TXT
           DATA2.TXT
           DATA3.TXT
        FOLDER_B/
           DATA1.TXT
           DATA2.TXT
           DATA3.TXT
        FOLDER_C/
           DATA1.TXT
           DATA2.TXT
           DATA3.TXT
   FOLDER_2/
        FOLDER_A/
           DATA1.TXT
           DATA2.TXT
           DATA3.TXT
   FOLDER_3/
        FOLDER_A/
           DATA1.TXT
           DATA2.TXT
           DATA3.TXT
        FOLDER_B/
           DATA1.TXT
           DATA2.TXT
           DATA3.TXT

(AFTER)

MAIN/
    FOLDER_1/
        FOLDER_A/

        FOLDER_B/

        FOLDER_C/

   FOLDER_2/
        FOLDER_A/

   FOLDER_3/
        FOLDER_A/

        FOLDER_B/

   DATA1.TXT
   DATA2.TXT
   DATA3.TXT
   DATA1.TXT
   DATA2.TXT
   DATA3.TXT
   DATA1.TXT
   DATA2.TXT
   DATA3.TXT
   DATA1.TXT
   DATA2.TXT
   DATA3.TXT
   DATA1.TXT
   DATA2.TXT
   DATA3.TXT
   DATA1.TXT
   DATA2.TXT
   DATA3.TXT

Thanks in advance...

 

[tanderso]

Check out

http://www.perldoc.com/,

and look up "opendir" and "readdir". Those and other built-in file functions are described in a document called "perlfunc".
Sincerely,

Tom Anderson
CEO, Order amid Chaos, Inc.

http://www.oac-design.com

 

[FreeBASE]

Too late, figured it out.. Thanks though..

 

[predamarcel]

take a look at:

http://marcell.hypermart.net/tree.htm

is a tree(directory viewer) in perl.
should be easy to modify it.

or I can do it for you.

PM

__

http://marcell.hypermart.net/

___