In article <012301c155a0$8ada3890$[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Chuck) wrote:
> my $dh = DirHandle->new($dir);
> return sort
> grep { XXXXXXXX }
> map { "$dir/$_" }
> grep { !/^\./ }
> $dh->read();
> Where you see the XXXXXXX's in the line containig grep, I need a check for
> this:
> If the file starts with REL or WinCIS. I tried egrep { "^WiNCIS|^REL" } but
> it did not work.
why not check for that in the first grep? note that you only have
to sort the filenames though ;)
return
map { "$dir/$_" }
sort
grep { /^(?:WiNCIS|REL)/ }
$dh->read();
--
brian d foy <[EMAIL PROTECTED]> - Perl services for hire
CGI Meta FAQ - http://www.perl.org/CGI_MetaFAQ.html
Troubleshooting CGI scripts - http://www.perl.org/troubleshooting_CGI.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
