Re: multiple greps in if()

[Felix Geerinckx]

on Thu, 25 Apr 2002 12:54:53 GMT, [EMAIL PROTECTED] 
(Steven Massey) wrote:

> ideally I would like multiple grep pairs ie..
> if(grep /(Handicap && Help) || (Friend && Foe)/, $source) {
> this does not work
> }

Put the '&&' outside of the pattern:

    #! perl -w
    use strict;

    my @strings = (
        'Handicap and Help',
        'Friend and Foe',
        'Handicap and Friend',
        'Help and Foe'
    );
        

    for my $s (@strings) {
        if (grep { (/Handicap/ && /Help/) || 
                   (/Friend/ && /Foe/)       } $s ) {
            print "'$s' passed the test\n";
        }
    }

-- 
felix

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