smartmatchを使用して配列内のすべてのパターンに一致する文字列を確認するにはどうすればよいですか？

Question

文字列が複数の正規表現パターンに一致するかどうかをチェックしたいと思います。パターンのいずれかが一致した場合

my @matches = (
    qr/.*\.so$/, 
    qr/.*_mdb\.v$/, 
    qr/.*daidir/, 
    qr/\.__solver_cache__/, 
    qr/csrc/, 
    qr/csrc\.vmc/, 
    qr/gensimv/, 
); 

if($_ ~~ @matches){ 
    ... 
} 

if文が入力されているが、私は確認したいそのパターンマッチのすべて：私はスマートマッチ演算子を使用してrelated question、ブラッド・ギルバートansweredに出くわしました。これどうやってするの？

Answer 1

スマートマッチ演算子はそれをサポートしていません。あなたはそれを自分で構築する必要があります。 List::MoreUtils 'allそうするのはすばらしいようです。

use strict; 
use warnings 'all'; 
use feature 'say'; 
use List::MoreUtils 'all'; 

my @matches = (
    qr/foo/, 
    qr/ooo/, 
    qr/bar/, 
    qr/asdf/, 
); 

my $string = 'fooooobar'; 
say $string if all { $string =~ $_ } @matches; 

これは出力されません。

$stringを'fooooobarasdf'に変更すると、文字列が出力されます。