> --Deb
>
> -Original Message-----
> From: Dan Muey [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, March 05, 2003 3:02 PM
> To: Scott, Deborah; [EMAIL PROTECTED]
> Subject: RE: How to look into every subdirectory
>
>
> > I need to make an HTML page that lists all
---Original Message-
> From: Beau E. Cox [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, February 25, 2003 12:29 PM
> To: Prasad Karpur; [EMAIL PROTECTED]
> Subject: RE: How to look into every subdirectory
>
>
> Hi -
>
> > -Original Message-
> > From
t: Tuesday, February 25, 2003 12:29 PM
To: Prasad Karpur; [EMAIL PROTECTED]
Subject: RE: How to look into every subdirectory
Hi -
> -Original Message-
> From: Prasad Karpur [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, February 25, 2003 3:18 AM
> To: [EMAIL PROTECTED]
> Subjec
www.perldoc.com search for File::Find. It does the recursion for you!
"Prasad Karpur" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> I am new to Perl and would like to know how to look into every
subdirectory. Any help would be greatly appreciated.
>
>
> "Beau" == Beau E Cox <[EMAIL PROTECTED]> writes:
Beau> Hi -
Beau> Just use a recursive subroutine to traverse your directory tree
Beau> from any starting point:
No no. You ignore the problem of symlinks. Please use File::Find,
unless you really understand File::Find's every behavior.
--
Hi -
> -Original Message-
> From: Prasad Karpur [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, February 25, 2003 3:18 AM
> To: [EMAIL PROTECTED]
> Subject: How to look into every subdirectory
>
>
> I am new to Perl and would like to know how to look into every
I am new to Perl and would like to know how to look into every subdirectory. Any help
would be greatly appreciated.
#!/usr/bin/perl
#use strict;
use Cwd;
my $curr = cwd();
opendir(CURRDIR, $curr) or die "can't open directory ($!), exiting.\n";
my @files = readdir(CURRDIR);
#c
