maestria
Novice
Oct 4, 2008, 2:55 AM
Post #2 of 3
(37302 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
--------------------------------------------------------------------
|
MAIN
SEARCH
WHO'S 
LOG 