Zamiennik regex inline w perlu

Question

Czy istnieje sposób na zastąpienie tekstu za pomocą wyrażenia regularnego, zamiast pobierania tekstu ze zmiennej i zapisywania jej w zmiennej?

Jestem początkującym początkującym. I często znajduję się pisać

my $foo = $bar; 
$foo =~ s/regex/replacement/; 
doStuff($foo) 

gdzie naprawdę chciałbym napisać

doStuff($bar->replace(s/regex/replacement/)); 

lub podobnego, zamiast zmiennej tymczasowej i trzy linie.

Czy istnieje sposób, aby to zrobić? Oczywiście, gdy wyrażenie regularne jest wystarczająco skomplikowane, ma sens podzielenie go, aby można go było lepiej wyjaśnić, ale gdy jest to tylko s/\s//g, źle jest zaśmiecać kod dodatkowymi zmiennymi.

Answer 1

Począwszy od Perl 5.14 można użyć Non-destructive substitution osiągnąć pożądane zachowanie.

Zastosowanie /r modyfikator zrobić tak:

doStuff($bar=~s/regex/replacement/r); 

Answer 2

Można użyć do { } blok, aby uniknąć tworzenia zmiennej tymczasowej w bieżącym zakresie:

doStuff(do {(my $foo = $bar) =~ s/regex/replacement/; $foo}); 

Answer 3

Czy to, co chcesz ?:

my $foo = 'Replace this with that'; 
(my $bar = $foo) =~ s/this/that/; 
print "Foo: $foo\nBar: $bar\n"; 

Wydruki:

Foo: Replace this with that 
Bar: Replace that with that 

Answer 4

Naprawdę nie możesz zrobić tego, co chcesz, ponieważ funkcja podstawiania zwraca albo 1 jeśli zadziałał lub pusty ciąg znaków, jeśli nie działał. Oznacza to, że jeśli to zrobił:

doStuff($foo =~ s/regex/replacement/); 

Funkcja doStuff byłyby stosując albo 1 lub pusty łańcuch jako parametr. Nie ma powodu, dla którego funkcja substytucji nie mogłaby zwrócić wynikowego łańcucha zamiast tylko 1, gdyby zadziałał. Była to jednak decyzja projektowa od najwcześniejszych dni Perla. W przeciwnym razie, co by się z tym stało?

$foo = "widget"; 
if ($foo =~ s/red/blue/) { 
    print "We only sell blue stuff and not red stuff!\n"; 
} 

Wynikowy ciąg nadal jest widget, ale podstawienie faktycznie nie powiodło się. Jeśli jednak podstawienie zwróci wynikowy ciąg znaków, a nie pusty ciąg znaków, wartość if będzie nadal prawdziwa.

Następnie, należy rozważyć tę sprawę:

$bar = "FOO!"; 
if ($bar =~ s/FOO!//) { 
    print "Fixed up \'\$bar\'!\n"; 
} 

$bar jest teraz pusty. Jeśli podstawienie zwróci wynik, zwróci pusty ciąg znaków. Jednak zastąpienie faktycznie się udało i chcę, aby moja if była prawdziwa.

W większości języków, funkcja podstawienie zwraca wynikowy ciąg znaków, a trzeba by zrobić coś takiego:

if ($bar != replace("$bar", "/FOO!//")) { 
    print "Fixed up \'\$bar''!\n"; 
} 

tak, to z powodu decyzji projektowej Perl (zasadniczo lepiej naśladować składnia awk) nie ma łatwego sposobu robienia tego, co chcesz.Jednak można to zrobić w ten sposób:

($foo = $bar) =~ s/regex/replacement/; 
doStuff($foo); 

To byłoby zrobić w ustawieniach miejsce $foo bez uprzedniego przypisując mu wartość $bar. $bar pozostanie niezmieniony.

Answer 5

Jest jeszcze inny sposób: Napisz własną funkcję:

sub replace (
    my $variable = shift; 
    my $substring = shift; 

    eval "\$variable =~ s${substring};"; 
    return $variable 
} 

doStuff(replace($foo, "/regex/replace/")); 

to nie byłoby warto dla pojedynczego połączenia, i będzie to prawdopodobnie tylko uczynić kod bardziej kłopotliwe w tej sprawie. Jeśli jednak robisz to kilkanaście razy, może być sensownym pisanie własnej funkcji, aby to zrobić.

Answer 6

use Algorithm::Loops "Filter"; 

# leaves $foo unchanged 
doStuff(Filter { s/this/that/ } $foo);