Look into File::Find
For example:
========================================
use File::Find;
find (\&do_something,$dir);
sub do_something() {
# ....
my $fullname = $File::Find::name;
my $dirname = $File::Find::dir;
# do something.....
}
========================================
Hope it helps,
Regards, Hermen
28-3-01 6:02:30, "Gray, Martha J." <[EMAIL PROTECTED]> wrote:
>Hi all,
>I was wondering if there was a way to search (traverse) a directory tree
>using Perl if you know the root.
>TIA
>Martha
>
>Martha J. Gray
>Software Developer
>UUNet, a WorldCom Company
>[EMAIL PROTECTED]
>(614)723-4134
>
>
>_______________________________________________
>Perl-Win32-Web mailing list
>[EMAIL PROTECTED]
>http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
>
>
Hermen Lesscher
==================================================================
To regret one's own experiences is to arrest one's own development
Oscar Wilde
==================================================================
[EMAIL PROTECTED]
http://www.lesscher.net
http://ortelius.xs4all.nl
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
