[Perl] How to get subdirectory?

[maulin sheth]

Hello All,

Can any one please help me to how to get the full path of sub directory using perl?
e.g. if directory structure like :

|-- a
| |-- b
| | |-- c
| | | `-- test.tcl
| | |-- d
| | | `-- test.tcl
| | `-- e
| | `-- f
| | `-- test.tcl
| `-- g
| `-- test.tcl

Perl output is :
a/b/c
a/b/d
a/b/e/f
a/g
--
Thanks & Regards,
Maulin Sheth

 

[Prashanthanilm]

You can use find to check all the sub directories :
find ./* -iname "*" -> Will display each and everything from the parent direcotory

Then you can pipe it to have only folder (-f).

Edit:
You can use tree in terminal (SHELL) just to verify with perl coding.