Use the Perl version of find:
Use File::Find;
find(\&wanted, $startdirectory);
sub wanted {
if ( $File::Find::name =~ m/09\.html$/ ) {
# Do whatever you want here to $File::FInd::name
# e.g. push @foundfiles, "$File::Find::name";
}
}
On Wed, 18 Apr 2001 14:44:38 -0400, [EMAIL PROTECTED] (Allen Gregg)
wrote:
>
>
>I am running perl5 on Windows 98. I have a directory (C:\Data2000, 20+
>Gbytes) full of numerous subdirectories full of (several hundred thousand)
>files. I want to parse out some data from certain files and I can easily if
>I have their full name and path. The only thing I know is they end with
>"09.html". Is perl the right tool to use to find all my 09 files and place
>their fully qualified names in a file?
>
>If I can get all my 09 filenames in a file, reading them in and parsing out
>the data I need is easy.
>
>Thanks in advance for any help.
>
>
>
>Gregg R. Allen
>EMC 2
>Layered Product Engineering
>62 TW Alexander Dr
>Research Triangle Park, NC. 27709
>Phone: 919.248.5859
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
