>>>>> "Matt" == Matt <[EMAIL PROTECTED]> writes:
Matt> #!/usr/bin/perl
use File::Finder; # in the CPAN
Matt> $cuid = "aef";
Matt> $directory = "EOM033107";
Matt> $smallcuid = lc $cuid;
my @result = File::Finder->type('f')->name(qr/^DATA.*\.zip\z/)->in(
'/home/ftpuser/'.$smallcuid.'/flexvault/'.$directory.'/'
);
--
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/
