>>>>> "Chris" == Chris McMahon <[EMAIL PROTECTED]> writes:
Chris> use warnings;
Chris> use strict;
Chris> use File::Find;
Chris> open (OUT, ">out.txt");
Chris> my $folder = "d:/Directory";
Chris> find (\&wanted, $folder);
Chris> sub wanted {
Chris> print OUT "$File::Find::dir/";
Chris> print OUT "$_\n";
Chris> }
Even simpler:
use File::Finder; # in the CPAN
my $folder = "d:/Directory";
open (OUT, ">out.txt") or die;
print OUT File::Finder->in($folder);
print "Just another Perl hacker,"
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
