Re: ensure ALL patterns in string

[kcott]

G'day previous,

Change

if (($var =~ /x/) && ($var =~ /y/) && ($var =~ /z/)) {...

to

if (grep { /x/ && /y/ && /z/ } $var) {...

My test:

#!/usr/bin/env perl -l

use strict;
use warnings;

my @test_strings = qw{
    ooo xoo oyo ooz xyo xoz oyz xyz
        oxo ooy zoo oxy zxo zoy zxy
        oox yoo ozo yox ozx yzo yzx
    oxyz oxoyz oxoyoz oxoyozo
};

for my $var (@test_strings) {
    if (grep { /x/ && /y/ && /z/ } $var) {
        print "All in: $var";
    }
}

Output:

All in: xyz
All in: zxy
All in: yzx
All in: oxyz
All in: oxoyz
All in: oxoyoz
All in: oxoyozo