Re: string/array smart match regex failing me

[JavaFan]

Considering none of the strings in @pattern equals $string, I'm not surprised.

You cannot use ~~ to match a given string with an array of patterns. You can do the opposite: match a pattern against an array of strings.

But you're matching a string against an array. And that is true iff there's an exact match of the string with at least one element of the array.

See the perlsyn manual page.

[ikegami]

You cannot use ~~ to match a given string with an array of patterns.

Yes you can. From perlsyn of 5.10.1, 5.12.0 and 5.12.2, the first matching case is

Any ~~ Array
match against an array element
grep $a ~~ $_, @$b

which repeatedly does

Any ~~ Regex
pattern match
$a =~ /$b/

Example:

use feature qw( say );

my @pats = map qr/$_/, qw( a c );

for (qw( aaa bbb ccc ddd )) {
   say if $_ ~~ @pats;
}

aaa
ccc

I didn't check the 5.10.0 docs since smart matching underwent major fixes in 5.10.1.

[GrandFather]

You cannot use ~~ to match a given string with an array of patterns

except that toolic's reply demonstrates that it does work and the perlsyn docs include a table in the 'Smart matching in detail' section that includes:

    $a      $b        Type of Match Implied    Matching Code
    ======  =====     =====================    =============
    ...
    Any     Array     match against an array element[3]
                                               grep $a ~~ $_, @$b
    ...

which clearly shows that an element by element smart match is performed, so an array of Regexs should work as the OP expects (and as toolic confirms). My best guess is that the OP is using 10.0 which introduced the smart match operator and a pile of bugs. 10.1 and later fixes a pile of smart match related bugs.

The brian d foy post linked by the OP is rather more explicit that the technique works than the Perl docs and, given the author, is fairly likely to be reliable.