Önceki Satır'a Satır nasıl eklenir?

Ayrıştırılması ve analiz edilmesi gereken bir Günlük dosyası var. Dosyada aşağıdakine benzer bir şey var:

Dosya:

20141101 server contain dump
20141101 server contain nothing
    {uekdmsam ikdas 

jwdjamc ksadkek} ssfjddkc * kdlsdl
sddsfd jfkdfk 
20141101 server contain dump

Yukarıdaki senaryoya dayanarak, başlangıç ​​satırının tarih içerip içermediğini veya önceki satıra eklemem gereken Numara'yı kontrol etmem gerekiyor.

Çıktı dosyası:

20141101 server contain dump
20141101 server contain nothing {uekdmsam ikdas jwdjamc ksadkek} ssfjddkc * kdlsdl sddsfd jfkdfk 
20141101 server contain dump

perlNegatif önden okuma kullanan bir sürüm :

$ perl -0pe 's/\n(?!([0-9]{8}|$))//g' test.txt
20141101 server contain dump
20141101 server contain nothing    {uekdmsam ikdas jwdjamc ksadkek} ssfjddkc * kdlsdlsddsfd jfkdfk
20141101 server contain dump

-0boyunca eşlenmesi için düzenli ifade sağlar tüm dosya , ve \n(?!([0-9]{8}|$))(ile hattının bir değil 8 basamağı takip yeni satır ya da son anlamına gelir, bir negatif ileri yönlü olan -0, dosyanın sonuna olacaktır).

İle biraz kolay olabilir sed

sed -e ':1 ; N ; $!b1' -e 's/\n\+\( *[^0-9]\)/\1/g'

• ilk bölüm 1 uzun satıra :1;N;$!b1bölünmüş dosyadaki tüm satırları toplar\n

• ikinci kısım şerit newline sembolü ise, aralarında olası boşluklar bulunan rakam olmayan sembolü izledi.

Bellek sınırlamasını önlemek için (özellikle büyük dosyalar için) şunları kullanabilirsiniz:

sed -e '1{h;d}' -e '1!{/^[0-9]/!{H;d};/^[0-9]/x;$G}' -e 's/\n\+\( *[^0-9]\)/\1/g'

Ya da zor bir sedsenaryoyu unutun ve o yılın2

tr '\n2' ' \n' | sed -e '1!s/^/2/' -e 1{/^$/d} -e $a

Bunun bir yolu:

 $ perl -lne 's/^/\n/ if $.>1 && /^\d+/; printf "%s",$_' file
 20141101 server contain dump
 20141101 server contain nothing    {uekdmsam ikdas jwdjamc ksadkek} ssfjddkc * kdlsdlsddsfd jfkdfk 
 20141101 server contain dump

Ancak, bu son satırsonu da kaldırır. Tekrar eklemek için şunu kullanın:

$ { perl -lne 's/^/\n/ if $.>1 && /^\d+/; printf "%s",$_' file; echo; } > new

açıklama

-lHer bir tane ekleyin da yeni satır sondaki (ve kaldıracaktır printkullandığım yüzden çağrı printfyerine. Daha sonra, sayı (mevcut hat başlar eğer /^\d+/) ve akım çizgisi sayısı (birden yüksekse $.>1, bu bir ekstra eklemekten kaçının gereklidir başında boş hat), bir ekleme \nsatırın başına kadar. printfher satırı yazdırır.

Alternatif olarak, tüm \nkarakterleri olarak \0değiştirebilir, ardından \0bir sayı dizesinden hemen önce olan karakterleri \ntekrar olarak değiştirebilirsiniz:

$ tr '\n' '\0' < file | perl -pe 's/\0\d+ |$/\n$&/g' | tr -d '\0'
20141101 server contain dump
20141101 server contain nothing    {uekdmsam ikdas jwdjamc ksadkek} ssfjddkc * kdlsdlsddsfd jfkdfk 
20141101 server contain dump

Yalnızca 8 rakamlı dizelerle eşleşmesi için bunun yerine şunu kullanın:

$ tr '\n' '\0' < file | perl -pe 's/\0\d{8} |$/\n$&/g' | tr -d '\0'

Bunu kullanarak yapmayı deneyin awk :

#!/usr/bin/awk -f

{
    # if the current line begins with 8 digits followed by
    # 'nothing' OR the current line doesn't start with 8 digits
    if (/^[0-9]{8}.*nothing/ || !/^[0-9]{8}/) {
        # print current line without newline
        printf "%s", $0
        # feeding a 'state' variable
        weird=1
    }
    else {
        # if last line was treated in the 'if' statement
        if (weird==1) {
            printf "\n%s", $0
            weird=0
        }
        else {
            print # print the current line
        }
    }
}
END{
    print # add a newline when there's no more line to treat
}

Kullanmak için:

chmod +x script.awk
./script.awk file.txt

Kullanmanın bir başka basit yolu (diğer cevabımdan) awkve terdon algoritması:

awk 'NR>1 && /^[0-9]{8}/{printf "%s","\n"$0;next}{printf "%s",$0}END{print}' file

sed -e:t -e '$!N;/\n *[0-9]{6}/!s/\n */ /;tt' -eP\;D

Le program en bash:

while read LINE
do
    if [[ $LINE =~ ^[0-9]{8} ]]
    then
        echo -ne "\n${LINE} "
    else
        echo -n "${LINE} "
    fi
done < file.txt

tek satırlı formda:

while read L; do if [[ $L =~ ^[0-9]{8} ]]; then echo -ne "\n${L} "; else echo -n "${L} "; fi done < file.txt

Ters eğik çizgi koruma ( read -r) ve önde gelen boşluklarla (hemen IFS=sonra while) çözüm:

while IFS= read -r LINE
do
    if [[ $LINE =~ ^[0-9]{8} ]]
    then
        echo
        echo -nE "\n${LINE} "
    else
        echo -nE "${LINE} "
    fi
done < file.txt

tek satırlık form:

while IFS= read -r L; do if [[ $L =~ ^[0-9]{8} ]]; then echo; echo -nE "${L} "; else echo -nE "${L} "; fi done < file.text

[shyam@localhost ~]$ perl -lne 's/^/\n/ if $.>1 && /^\d+/; printf "%s",$_' appendDateText.txt

işe yarayacak

i/p:
##06/12/2016 20:30 Test Test Test
##TestTest
##06/12/2019 20:30 abbs  abcbcb abcbc
##06/11/2016 20:30 test test
##i123312331233123312331233123312331233123312331233Test
## 06/12/2016 20:30 abc

o/p:
##06/12/2016 20:30 Test Test TestTestTest
##06/12/2019 20:30 abbs  abcbcb abcbc
##06/11/2016 20:30 test ##testi123312331233123312331233123312331233123312331233Test
06/12/2016 20:30 abc vi appendDateText.txt