Zastosowanie zmienna jak RegEx wzór

Question

Chciałbym użyć zmiennej jako wzorzec regex pasującymi nazwami:

my $file = "test~"; 
my $regex1 = '^.+\Q~\E$'; 
my $regex2 = '^.+\\Q~\\E$'; 
print int($file =~ m/$regex1/)."\n"; 
print int($file =~ m/$regex2/)."\n"; 
print int($file =~ m/^.+\Q~\E$/)."\n"; 

Wynik (lub na ideone.com):

0 
0 
1 

Może ktoś wyjaśnić jak mogę używać zmiennej jako wzorca RegEx?

Answer 1

Nie można użyć numeru \Q w łańcuchu z pojedynczym cudzysłowem/bez interpolacji. Lektor musi to zobaczyć.

W każdym razie tylda nie jest meta-znakiem.

Dodaj use regex "debug", a zobaczysz, co się naprawdę dzieje.

Answer 2

Jak documentation mówi:

$re = qr/$pattern/; 
    $string =~ /foo${re}bar/; # can be interpolated in other patterns 
    $string =~ $re; # or used standalone 
    $string =~ /$re/; # or this way 

więc użyć operatora qr cytat-podobnego.