ED]To: "Dave Kazatsky"
<[EMAIL PROTECTED]>
om> cc:
[EMAIL PROTECTED]
Subject: Re: Help
>What I need to do is look at a directory structure regardless of files.
This works for me:
#!/usr/bin/perl
use warnings;
use strict;
use File::Find;
find(\&dirscend, "C:\\");
sub dirscend {
return unless -d $File::Find::name;
print "$File::Find::name\n";
}
If you need
|
|
|
| To: "Dave Kazatsky" <[EMAIL PROTECTED]>,
|
|[EMAIL PROTECTED]
|
| cc:
|
| Subject: Re: Help with recursive directory search
|
>
>I am trying to setup a recursive read to capture every
>directory and sub-directory but seem to be hitting a wall.
Use File::Find.
--
Morbus Iff ( i put the demon back in codemonkey )
Culture: http://www.disobey.com/ and http://www.gamegrene.com/
Spidering Hacks: http://amazon.com/exec/obidos/ASI
Hello Perlers,
Need to write a script that compares directory structures (not files -
directories only).
I am trying to setup a recursive read to capture every directory and
sub-directory but seem to be hitting a wall.
Does anybody have any information I can use as starting point?
This will run
