문자열이 smartmatch를 사용하는 배열의 모든 패턴과 일치하는지 어떻게 확인할 수 있습니까?

Question

문자열이 여러 정규식 패턴과 일치하는지 확인하고 싶습니다. 패턴 중 하나가 일치하는 경우

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

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

if 문을 입력,하지만 난 확인 할 그 패턴 일치의 모든 : 나는 smartmatch 연산자를 사용 related question, 브래드 길버트 answered을 가로 질러왔다. 어떻게해야합니까?

Answer 1

smartmatch 운영자는이를 지원하지 않습니다. 너는 직접 그것을 만들어야 할 것이다. 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'으로 변경하면 문자열이 출력됩니다.