Perl'de çoklu desen eşleşmesi nasıl kontrol edilir

Question

Çoklu desen kontrolleri için bunu kullanmanın bir yolu var mı?

Dizideki tüm kalıpları kırabilir miyim ve desen dizisindeki herhangi bir desenle eşleşip eşleşmediğini kontrol edebilir miyim? Lütfen 20'den fazla desen dizgisi olduğunda durumu dikkate alın.

if( ($_=~ /.*\.so$/) 
    || ($_=~ /.*_mdb\.v$/) 
    || ($_=~ /.*daidir/) 
    || ($_=~ /\.__solver_cache__/) 
    || ($_=~ /csrc/) 
    || ($_=~ /csrc\.vmc/) 
    || ($_=~ /gensimv/) 
){ 
    ... 
} 

Answer 1

Perl 5.10 sürümünü kullanırsanız, bunu yapmanın gerçekten kolay bir yolu vardır. Sadece yeni smart match (~~) operatörünü kullanın. Perl 5.10 kullanamıyorsanız

use warnings; 
use strict; 
use 5.10.1; 

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

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

, o zaman List::MoreUtils::any kullanmak.

use warnings; 
use strict; 
use List::MoreUtils qw'any'; 

my @matches = (
    # same as above 
); 

my $test = $_; # copy to a named variable 

if(any { $test =~ $_ } @matches){ 
    ... 
} 

Answer 2

Başka öncesi Perl 5.10 seçenek kalıpları listesi almak ve bir kerede özgün koşulların tümü test edecek tek bir regex bunları birleştirecek olan Regexp::Assemble olduğunu.

Answer 3

Orijinal kod aşağıdaki gibi daha güzel yazılmış olabilir:

$_ =~ /foo/ sadece /foo/ aynıdır çünkü

if( /.*\.so$/ 
    || /.*_mdb\.v$/ 
    || /.*daidir/ 
    || /\.__solver_cache__/ 
    || /csrc/ 
    || /csrc\.vmc/ 
    || /gensimv/ 
) { ... } 

. Eğer Perl 5.10 veya daha yüksek bir sürüme sahipseniz, Brad'in önerdiği gibi akıllı maç operatörünü kullanırdım.