Sostituire il gruppo di cattura specifico anziché l'intera espressione regolare in Perl

Question

Ho un'espressione regolare con gruppi di acquisizione che corrisponde a ciò che voglio in un contesto più ampio. Prendo quindi il gruppo di cattura $1 e lo uso per le mie esigenze. Questo è facile.

Ma come utilizzare i gruppi di cattura con s/// quando voglio solo sostituire il contenuto di $1, non l'intera espressione regolare, con la mia sostituzione?

Grazie!
-f

Answer 1

Se solo è necessario sostituire un'acquisizione quindi utilizzando @LAST_MATCH_START e @LAST_MATCH_END (con use English; vedi perldoc perlvar) insieme substr potrebbe essere una scelta valida:

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

Come ho capito, è possibile utilizzare look-ahead o look-behind che non consumano caratteri. O salva i dati in gruppi e rimuovi solo ciò che stai cercando. Esempi:

con look-ahead:

s/your_text(?=ahead_text)//; 

Raggruppamento dei dati:

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

Answer 3

Questa è una vecchia domanda, ma ho trovato il seguito più facile per la sostituzione di righe che iniziano con >something a >something_else. Buono per cambiare le intestazioni per le sequenze fasta

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

    }