Checking if file starts with X or Y

[Chuck]

I have this function:

sub getDIRcontents {
        my $dir = shift;
        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.


Any ideas.

-Chuck



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]