在perl中使用變量作爲正則表達式修飾符

Question

尋找一種方法從perl變量傳遞修飾符。例如，

sub isContentValid 
{ 
    my $modifier = shift; 
    my $validationRe = shift; 

    $modifier = ($modifier) ? "" : "i"; 
    $isValid = $ans =~ /$validationRe/$modifier; 
    return $isValid; 
} 

Answer 1

您可以使用調節劑內正則表達式。

man perlre

修飾符 「/ imsxadlup」 也可以被嵌入使用 「（？...）」 構造，參見下文 「擴展模式」 正則表達式本身內。

sub isContentValid 
{ 
    my $modifier = shift; 
    my $validationRe = shift; 

    $modifier = ($modifier) ? "-i" : "i"; 
    $isValid = $ans =~ /(?$modifier)$validationRe/; 
    return $isValid; 
}