Search if a string matches with any regex of an array in Perl

Question

I have an array containing some PCRE matching patterns (like "prefix_.*") and I'm comparing a string with all the patterns of the array. Currently, I'm working with this code:

foreach (@matchingPatterns) {
    if ("$string" =~ "$_") {
        [do something]
    }
}

This code is working well but I'm sure that there is a prettier way to do that in Perl (without any loop?).

Am I wrong? ;)

Sean · Accepted Answer · 2014-02-06 15:24:20Z

1

There's not much scope for improvement here, but I'd be more liable to write something like one of the following:

for (@matchingPatterns) {
    next if $string !~ /$_/;
    # do something
}

or

for (grep { $string =~ /$_/ } @matchingPatterns) {
    # do something
}

...both of which at least save you a few lines of code.

answered Feb 6, 2014 at 15:24

Sean

30k5 gold badges85 silver badges111 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Andrejovich Over a year ago

While we're golfing anyway, do_something for grep {$string =~ $_} @matchingPatterns;

Collectives™ on Stack Overflow

Search if a string matches with any regex of an array in Perl

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related