Japhy,
Thank you! But now I have another problem as a result:
#!/perl/bin -w
use strict;
use File::Find;
open (DEST, ">c:/temp/dirlist.txt") || die "opening
log file: $!";
sub getlist {
print DEST "$File::Find::name\n" if -d;
print "$File::Find::name\n" if -d;
}
find \&getlist, 's:/';
This won't print to a text file??? It does everything
else...
Ben
__________________________________
Do you Yahoo!?
Yahoo! Small Business $15K Web Design Giveaway
http://promotions.yahoo.com/design_giveaway/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
