Jak zastąpić zmiennymi opcjami w skrypcie perla

Question

W podstawieniu tekstowym perl są bardzo proste i potężne. chcę zrobić skrypt ze zmiennymi substytucji, jak:

if ($IgnoreCase) {$opt = "gi"} else {$opt = "g"} 

$string =~ s/$source/$replace/$opt; 

Wyniki w: znaleziono

Scalar gdzie operator expected ...

Czy istnieje możliwość spotkania się wykonać zmienna opcji?

Answer 1

Ponieważ używasz /g we wszystkich przypadkach można,

my $opt = $IgnoreCase ? "(?i)" : ""; 

$string =~ s/$opt$source/$replace/g; 

Więcej na ten temat w perldoc perlre

jeden lub więcej wbudowanych modyfikatorów wzorca dopasowania, aby włączyć (lub wyłączone, jeśli jest poprzedzone "-") dla pozostałej części wzorca lub pozostałej części otaczającej grupy wzorów (jeśli istnieją).

Jest to szczególnie użyteczne w przypadku dynamicznie generowanych wzorców, takich jak te pobierane z pliku konfiguracyjnego, pobierane z argumentu lub określone gdzieś w tabeli. Rozważmy przypadek, w którym niektóre wzorce chcą uwzględniać wielkość liter, a niektóre nie. Rozróżnianie wielkości liter nie musi uwzględniać wielkości liter (? I) na początku wzorca.

Answer 2

Aby nieco wyjaśnić the excellent answer z Сухой27:

Jak widać, nie można użyć zmiennej w sekcji Opcje operatora s/// (dobrze, jeśli można stosować eval ale to byłoby bardzo zły pomysł).

Jednak to nie jedyny sposób, aby uzyskać opcje dopasowania do wyrażenia regularnego. Można również użyć ciągu regex z (?...) wewnątrz . Na przykład m/(?i)foo/ jest dokładnie taki sam, jak m/foo/i. Zauważ, że /g to nieco inna klasa opcji, więc nie możesz użyć tej opcji w ten sposób.

Ale ponieważ ten ciąg (?...) jest tylko częścią wyrażenia regularnego, można użyć zmiennej do osadzenia jej w swoim regex.

my $opt = $IgnoreCase ? "(?i)" : ""; 

$string =~ s/$opt$source/$replace/g; 

Aby uzyskać więcej informacji, zobacz numer "Extended Patterns" in perldoc perlre.