> is there a way to write this without using map AND grep AND
> without making
> it longer than it is?
> @must = map { m/(.*)\/\*/; $1 } grep m/\/\*/, @recomp;
>
> where @recomp = qw( stuff/stuff.c
> crap/*
> morestuff/*
> stuffy/stuff_stuff.c
> stuffy/suffering.c
> ); # and more of the similar
Hmm. Have you tried:
@must = map { /^(.*)\/\*$/ } @recomp;
If so, is there a big speed loss when you remove the grep?
Interested,
-dave
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
