Koti,
You can use File::List module which does your task very easily.
Regards,
Ganesh
On Tue, Dec 2, 2008 at 5:18 PM, Koti <[EMAIL PROTECTED]> wrote:
> Hi Matt, A very Good Morning, Need a small Info for my problem.
>
> I have a directory named "X" which has many sub directories
> "Y","Z","W" and many files about 20 , and these sub directories also
> contain some more sub directories and files in them and those sub
> directories also contain more directories and files.
>
> I want to read all the files that exists across all the directors,
> subdirectories (only files list) and need to display .
>
> i tried until 2 loops , but unable to complete the logic well on a
> whole. can u help me if u have any idea ,
>
> Any thing is helpful.
>
> Thanks In advance
>
> My Code is like below:
> ---------------------------------------------------------------
> print "Enter The Directory Path";
> $dir = <STDIN>;
> chomp($dir);
> opendir(DIR, $dir) || die "Unable to open the directory";
> @contents=readdir(DIR);
> foreach $listitem ( @contents )
> {
> if ( -d $listitem )
> {
> opendir(DIR,$listitem)
> @c2=readdir(DIR);
> foreach $l2(@c2) {
> if (-d $l2) {
> print $l2;
> print " It's a directory!\n";
> }
> else
> {
> print $l2;
> print " It's a file!\n";
> }
> }
> }
> print $listitem;
> print " It's a directory!\n";
> }
> else
> {
> print $listitem;
> print " It's a file!\n";
> }
> }
> close(DIR);
> --------------------------------------------------------------
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
