Perl Regex: Ausschneiden und Einfügen

Question

Ich versuche Perl zu verwenden, um eine Datei zu bearbeiten, im Wesentlichen zum Ausschneiden und Einfügen von Inhalt in der Datei. Es scheint jedoch, dass ich die Regex falsch konstruiert habe. Ich würde mich freuen, wenn ich es aussortieren könnte. Die Substitution Befehl sollte Schnitt den Inhalt nach export PATH=$PATH bis zu aber nicht einschließlich # THIS IS LAST geschnitten, und fügen Sie diese Inhalte vor export PATH=$PATH

Perl Befehl: perl -i -pe 's;(export PATH.*\n)(.*)(\# THIS IS LAST!\n);$2$1$3;' bashrc

Aktuelle bashrc:

export TERM=xterm 
export PATH=$PATH 
export BREW_HOME=/home/dev/.linuxbrew 
export ANACONDA_HOME=/home/dev/.anaconda3 

# THIS IS LAST! 

Gewünschte bashrc:

Answer 1

Um Sie über mehrere Zeilen entsprechen die gesamte Datei in einem skalaren

perl -0777 -pe's/(export PATH.*?\n)(.*?)(?=\n?# THIS IS LAST)/$2$1/s' input.txt 

wo -0777 ermöglicht „schlürfen“ -Modus haben müssen, und (?=...) ist ein positive lookahead.

Der \n? ist im Lookahead, um die optionale leere Zeile einzuschließen, die nicht verbraucht werden sollte, da diese Zeile nicht verschoben werden sollte. Dann muss das vorherige Muster auch nicht gierig sein. Dies schützt eine einzelne vorangehende leere Zeile, alle anderen werden abgeglichen und ausgetauscht.