Dotaz: jak na spojení (některých) řádků

[hajoucha]

Ahojda, chci provést s řádky textového souboru následující operaci:

"řádky, které nezačínají číslem připoj k předchozímu řádku"

Příklad vstupu:

1
nec
prase
3 a
fuj
4 b

výstup má být:

1 nec prase
3 a fuj
4 b

Zatím to umím zařídit pouze pomocí vim:

vim -c ":g/^\D/-1 norm gJ"

bohužel tímto způsobem skončím s otevřeným vim v terminálu, což je nežádoucí. Rád bych tu operaci prováděl ve skriptu. V zásadě by mi i stačilo jenom nějak (automaticky) uložit soubor a zavřít to vim...

---

---

Odpovědi

[hajoucha]

hmm, tak vlastně stačí

vim -c ":g/^\D/-1 norm gJ" -c ":wq" soubor.txt

Funguje to, ale moc elegantní mi to teda nepřijde...

[NN]

cat in.txt | tr '\n' ' ' | grep -oP '\d+[ a-z]+' | sed 's/ $//'

Az na ty mezery na konci..

[toto awk]

"Az na ty mezery na konci.. "

tak ich este odstran

[aaaa]

Nefunguje, vstup

1 2 3
nec
prase
3 a
fuj
4 b

vrati

1
2
3 nec prase
3 a fuj
4 b

Co nesplna zadanie na spajanie riadkov.

[toto awk]

cat subor.txt | awk '{ stav=0;if (match($1,/^[0-9]+$/)) {if(slov==0){printf $0 }else{printf "\n" $0} } else {printf " "$1};slov++} END {printf "\n"}'

[toto awk]

alebo: cat s | awk '{ if (match($1,/^[0-9]+$/)) {if(slov==0){printf $0 }else{printf "\n" $0} } else {printf " "$1};slov++} END {printf "\n"}'

[aaaa]

Alebo intuitivne cat s | awk 'BEGIN{ORS=""}/^[0-9]/{print have (NR>1?"\n":""); have = $0}/^[^0-9]/{have = have " " $0}END{print have "\n"}'

[aaaa]

Alebo intuitivne

cat s | awk 'BEGIN{ORS=""}/^[0-9]/{print have (NR>1?"\n":""); have = $0}/^[^0-9]/{have = have " " $0}END{print have "\n"}'

[awk]

Pri vstupe:

gdsdfs sfd 5 sfda

skonci chybou. Musis ist cez pomocnu premennu.

[aaaa]

Mne to da rovnaky vystup ako tvoj program. Mozes postnut vystup a porovnat to?

[awk]

sorry, ignoruj tento koment

[Andrej]

Technická poznámka: Na ABCLinuxu není žádné ocenění za UUOC, proto nemá smysl o něj tolik usilovat.

[hajoucha]

Pomocí regexp:

…|perl -00 -pe 's/ \n (?! \d ) / /xg'

nahradí všechny nové řádky, které nejsou před číslem, za mezeru

[toto awk]

nieco@nieco:/tmp$ cat text.txt|perl -00 -pe 's/ \n (?! \d ) / /xg'
1 nec prase
3 a fuj
4 b nieco@nieco:/tmp$ 

[hajoucha]

tohle vypadá dobře! Díky

[awk]

Praveze tam vsetko dobre neni. Vid posledny riadok.

[awk]

Privada medzeru naviac.