
maestria
Novice

Oct 4, 2008, 2:55 AM
Post #2 of 3
(41340 views)
|
Re: [talk2mishal] Directory Structure in perl
[In reply to]
|
Can't Post
|
|
I can help you with a script that would extract the files and folders recursively from a directory. You can use this and achieve your result #!/usr/bin/perl -l use File::Find; $start_dir = shift || '.'; find( sub{ -f $_ and push @files, $File::Find::name; -d $_ and push @dirs, $File::Find::name; }, $start_dir ); print "@files"; print "@dirs"; ------------------------------------------------------------------ If some one can do it, we can do it better http://maestriatech.com perl@maestriatech.com --------------------------------------------------------------------
|