Kopieren Sie die vorherige Zeile aus der Textdatei in die aktuelle Zeile

Ich habe eine Datei mit Zeilen, genau wie folgt:

A
B
C

Ich möchte eine doppelte Datei in Bash erstellen, die jede Zeile enthält, die mit der Kopie der nächsten Zeile zusammengeführt wird, wie:

A;B
B;C
C;

Verwenden von awk:

awk 'prev{ print prev ";" $0 }
     { prev = $0 }
     END { if (NR) print prev ";" }'

was mit Ihrer Eingabe gibt

A;B
B;C
C;

Schneller Weg (beinhaltet das zweimalige Lesen der Datei):

$ tail -n+2 file | paste -d';' file -
A;B
B;C
C;

$ sed 'x;G;s_\n_;_;1d;${p;x;s_$_;_;}' file
A;B
B;C
C;

Was dieser sedAusdruck tut:

• x: Speichern Sie die eingehende Zeile im Haltebereich und rufen Sie die vorherige ab
• G: Hänge die neue Zeile (aus dem Haltebereich) an die alte an
• s_\n_;_: Zeilenumbruch durch a ersetzen ;.
• 1d: Wenn dies die erste Zeile ist, löschen Sie sie (drucken Sie sie nicht aus) und fahren Sie mit der nächsten fort
• ${...;}: wenn dies die letzte Zeile ist ...
• p: Drucken Sie zuerst das verbundene Paar
• x: die letzte Zeile abrufen
• s_$_;_: final anhängen ;

Etwas einfachere sedLösung ohne Speicherplatz:

sed '$!N;y/\n/;/;p;y/;/\n/;D' file

• $!Num der nächsten Zeile beizutreten (falls vorhanden; $!wird bei GNU nicht benötigt, sedwenn nicht im POSIX-Modus)
• y/\n/;/ Ersetzen Sie die Newline durch ;
• pDrucken Sie die resultierende Linie
• y/;/\n/ zurück zu newline wechseln, also mit
• D Sie können die erste Zeile entfernen und mit der nächsten fortfahren

Gleiche Grundidee wie die von Torin gegebene awk-Lösung :

$ perl -lne 'print "$last;$_" if defined $last; $last=$_;END{print "$last;" if $.}' file 
A;B
B;C
C;

Oder wenn Sie sich für die ganze Kürze interessieren:

$ perl -lne'$.>1?print"$l;$_":1;$l=$_}{print"$l;"if$.' file 
A;B
B;C
C;

Eine Vim-Lösung

Man kann diesen Befehl ausgeben (Dank an Conspicuous Compiler, der dies vorgeschlagen hat):

vim "+%s/\n\(.\+\)*/;\1\n\1" sample.txt

Alternativ und wahrscheinlich üblicher starten Sie Vim, öffnen Sie die Datei und geben Sie den Befehl ex ein:

:%s/\n\(.\+\)*/;\1\n\1

Erläuterung:

Ersetzen Sie das Muster:

• das neue Zeilenzeichen,\n
• eine Zeichengruppe \(.+\), die die gesamte nächste Zeile zusammensetzt. Der folgende Quantifizierer *zeigt nur an, dass es null oder mehr Übereinstimmungen geben kann

mit den folgenden:

• ein Semikolon
• gefolgt von einem Verweis auf die Zeichengruppe, \1
• gefolgt vom neuen Zeilenzeichen, \n
• gefolgt von einem zweiten Verweis auf die Zeichengruppe , \1.

Vor:

Nach:

$ perl -lp -0777e 's/\n(?=(.*\n?))/;$1/g'  input.txt