Zastąp określoną grupę przechwytywania zamiast całego wyrażenia regularnego w języku Perl

Question

Mam wyrażenie regularne z grupami przechwytywania, które pasują do tego, co chcę w szerszym kontekście. Następnie biorę grupę przechwytywania $1 i używam jej do moich potrzeb. To łatwe.

Ale jak używać grup przechwytywania z s///, gdy chcę tylko zastąpić zawartość $1, a nie całe wyrażenie, z moim zamiennikiem?

Dzięki!
-f

Answer 1

Jeśli tylko trzeba wymienić uchwycić następnie używając @LAST_MATCH_START i @LAST_MATCH_END (z use English patrz perldoc perlvar) wraz z substr może być wykonalnym wyborem:

use English qw(-no_match_vars); 
$your_string =~ m/aaa (bbb) ccc/; 
substr $your_string, $LAST_MATCH_START[1], $LAST_MATCH_END[1] - $LAST_MATCH_START[1], "new content"; 
# replaces "bbb" with "new content" 

Answer 2

Rozumiem, że można używać wyprzedzania lub niedowidzenia, które nie pochłaniają znaków. Lub zapisuj dane w grupach i usuwaj tylko to, czego szukasz. Przykłady:

Z antycypowana:

s/your_text(?=ahead_text)//; 

Grupowanie danych:

s/(your_text)(ahead_text)/$2/; 

Answer 3

To jest stare pytanie, ale poniżej łatwiej było zastąpić linie zaczynające się od >something do >something_else. Dobry do zmiany nagłówków dla sekwencji fasta

while ($filelines=~ />(.*)\s/g){ 
     unless ($1 =~ /else/i){ 
       $filelines =~ s/($1)/$1\_else/; 
     } 

    }