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);
#closedir(CURRDIR);
foreach my $file (sort @files) {
next if $file eq '.' || $file eq '..';
next if !-d $file;
if (-d $file) {
print "$file/\n"; #Puts a slash in front of every directory it encounters
}
else { print "$file\n"; }
}
closedir(CURDIR);
__________________________________________________________________
The NEW Netscape 7.0 browser is now available. Upgrade now!
http://channels.netscape.com/ns/browsers/download.jsp
Get your own FREE, personal Netscape Mail account today at http://webmail.netscape.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
