Hi all,
I'm trying to get a unique list of all directories on
certain drives in windows. Problem is, with my script,
I get tons and tons of duplicates...can anyone point
out what I'm doing wrong?
#!/perl/bin -w
use strict;
use File::Find;
open (DEST, ">c:/temp/p_drive.txt") || die "opening
log file: $!";
sub getlist {
print DEST "$File::Find::dir\n";
print "$File::Find::dir\n";
}
find \&getlist, 'p:/';
Thank u,
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>
