Sovrascrivi regex con distinzione tra maiuscole e minuscole in Perl

Question

È possibile sovrascrivere la sensibilità alla distinzione tra maiuscole e minuscole di una regex precedentemente definita in Perl? Per esempio, se dovessi avere il seguente:

my $upper = qr/BLAH/x; 
my $lower = qr/$upper/xi; 
warn "blah" =~ $lower 

mi piacerebbe la terza linea per stampare un riscontro positivo.

Answer 1

È possibile aggiungere il /i alla regexp come segue:

use re qw(is_regexp regexp_pattern); 

sub make_re_case_insensitive { 
    my ($re) = @_; 

    return "(?i:$re)" if !is_regexp($re); 

    my ($pat, $mods) = regexp_pattern($re); 
    if ($mods !~ /i/) { 
     $re = eval('qr/$pat/'.$mods.'i') 
     or die($@); 
    } 

    return $re; 
} 

Ma questo non influenzerà qr/(?-i:BLAH)/.

---

questo è più di una domanda riutilizzo del codice, quindi non c'è bisogno di fare due regex molto simile che prova maiuscolo o in minuscolo.

my $pat = 'BLAH'; 
my $re1 = qr/$pat/x; 
my $re2 = qr/$pat/xi;