Sostituire la ricerca multilinea con Perl

Question

So che questo tipo di domande sono già state fatte molte volte. Il motivo per cui vengo di nuovo qui è che mi sembra di aver perso qualcosa di semplice e fondamentale.

È possibile rendere questo tipo di routine di sostituzione della ricerca migliore. Ad esempio senza aprire lo stesso file due volte. Anche i consigli relativi alla velocità sono ben accetti.

Si noti che questo funziona con corrispondenze multilinea e sostituisce anche stringhe multilinea.

#!/bin/perl -w -0777 

local $/ = undef; 

open INFILE, $full_file_path or die "Could not open file. $!"; 
$string = <INFILE>; 
close INFILE; 

$string =~ s/START.*STOP/$replace_string/sm; 

open OUTFILE, ">", $full_file_path or die "Could not open file. $!"; 
print OUTFILE ($string); 
close OUTFILE; 

Answer 1

Questo tipo di ricerca e sostituzione può essere realizzato con una battuta, come -

perl -i -pe 's/START.*STOP/replace_string/g' file_to_change 

Per altri modi per ottenere la stessa cosa controllare questo thread. Per gestire più linee ricerche utilizzare il seguente comando -

perl -i -pe 'BEGIN{undef $/;} s/START.*STOP/replace_string/smg' file_to_change 

Al fine di convertire il codice da un one-liner ad un programma Perl hanno uno sguardo al perlrun documentation.

Se si trova davvero la necessità di convertirlo in un programma funzionante, basta lasciare che Perl gestisca l'apertura/chiusura del file per conto dell'utente.

#!/usr/bin/perl -pi 
#multi-line in place substitute - subs.pl 
use strict; 
use warnings; 

BEGIN {undef $/;} 

s/START.*STOP/replace_string/smg; 

È quindi possibile chiamare lo script con il nome del file come primo argomento

$perl subs.pl file_to_change 

Se si desidera uno script più carnoso dove si arriva a gestire il file aperto/chiudi le operazioni (non è vero amo tutte quelle dichiarazioni 'die') quindi dai un'occhiata all'esempio in perlrun sotto l'opzione -i [estensione].

Answer 2

Considerando che si slurp in tutto il contenuto del file con:

local $/ = undef; 

open INFILE, $full_file_path or die "Could not open file. $!"; 
$string = <INFILE>; 
close INFILE; 

e poi fare tutte le lavorazioni con $string, non c'è alcuna connessione tra il modo di gestire il file e come si elaborano i contenuti. Avresti un problema se avessi aperto il file per la scrittura prima che avessi finito di leggerlo, poiché aprire un file per scrivere crea un nuovo file, scartando i contenuti precedenti.

Se tutto ciò che si sta tentando di fare è salvare su dichiarazioni di apertura/chiusura, quindi fare come Jonathan Leffer suggested. Se la tua domanda riguarda la ricerca e la sostituzione multilinea, ti preghiamo di chiarire qual è il problema.

Answer 3

Estrarre la risposta breve dai commenti, per chiunque sia alla ricerca di un quick one-liner e il motivo per cui Perl sta ignorando le loro opzioni RegEx dalla riga di comando.

perl -0pe 's/search/replace/gms' file

senza l'argomento -0, Perl elabora i dati line-by-line, che fa sì che le ricerche multilinea al sicuro.