Dotaz: tisk textu od slova1 do slova2

[Terka]

mám-li text:

fasdfa asdfasdf asfasd f asdfa
asdfasdfadsdfa asdfasdf asdf asf
zacatek
asdfasfas dfasd fasd fasf asdf as
a sdfasdfas fasdf asdfas fas
 asdf asdfas fasdf asf
as dfasfasdf asdfas
konec
as dfasdfas f
 asdfas fasf


a chci vytisknout pouze část od zacatek po konec, tj.

zacatek
asdfasfas dfasd fasd fasf asdf as
a sdfasdfas fasdf asdfas fas
 asdf asdfas fasdf asf
as dfasfasdf asdfas
konec


jak na to nejlépe pomocí awk?

Odpovědi

[qk]

no v awk nepisu, ja radsi sed. Ale zkusil bych nejakej takovej postup:
1) promennou na zacatku nula
2) zpracovavat radky dokud nenajdu pocatecni slovo (zacatek) a to uz od nej davat do vystupu (tzn odriznout veci pred tim slovem) a anstavit promenou na jedna
3)vypisovat radky dokud na radku neni koncove slovo a veci po nem odriznout z vystupu a na zbytek se vykaslat
4) jeste osetrit pripad ze bude zacatek i konec na stejnem radku

kdyby si chtela zdrojak pomoci sedu, tak ti ho muzu napsat.

[cronin]

Awk tiez nepouzivam, ale staci aj shell:

#! /bin/sh

section_begin=`grep -n zacatek "${0}" | head -n 1 | cut -f 1 -d : | tr -d ' '`
section_end=`grep   -n konec   "${0}" | tail   -1 | cut -f 1 -d : | tr -d ' '`
 
tail +${settings_section_begin} subor.txt | head -n `expr ${section_end} - ${section_begin}` 

Upravoval som to z ineho skriptu, neskusal som to, ale vela chyb tam asi nebude.

[Hynek (Pichi) Vychodil]

Bezva, takže než, aby se použil jeden awk, sed, nebo perl což jsou POSIX standardy a ten soubor se načetl jen jednou, tak se načte třikrát, spustí se 13 subprocesů, použije 6 různých utilit (externích programů), otevře 9 rour a to všechno pěkně křehkým způsobem. Moc pěkné. A co když tam těch sekcí bude víc? Tak tak to budeme mít od začátku první sekce po konec poslední. Nezaložíme nějaký kontest o co nejsložitější nebo obfuscated verzi této úlohy? Nebo kdo na to použije nejvíc systémových prostředků?

[cronin]

Bezva, takže než, aby se použil jeden awk, sed, nebo perl což jsou POSIX standardy a ten soubor se načetl jen jednou, tak se načte třikrát, spustí se 13 subprocesů, použije 6 různých utilit (externích programů), otevře 9 rour...

Ale ano, presne tak sa to urobi, ak je to potrebne. Sh skript nam bude fungovat aj na FreeBSD, kde nemame perl, aj na osekanych produkcnych Solarisoch, lebo aj tam to potrebujeme. Niekedy je treba si radsej ohackovat kompatibilitu tailu a grepu, pretoze nie vsetky skripty piseme pre svoj desktop, niektore piseme aj pre zakaznika, ktory ma paranoidnych administratorov, vedia oni?

[Hynek (Pichi) Vychodil]

Ty máš nějaký un*x hodný toho jména, který neubsahuje sed? Já tě snad nutím použít perl? Takže ty máš nějakého zákazníka, který má paranoidního admina, který zakázal sed a nezakázal grep, cut, head, tail, expr a tr? Toho mi ukaž. Takže ze mě nedělají blbce, vědí oni? Oni totiž neumí používat sed a maskují to za ultra hyper velkého machírka. Krom toho původní dotaz se týkal awk, takže se určitě ptá někdo, kdo nemá awk, vědí oni?

[Hynek (Pichi) Vychodil]

sed -n '/^zacatek/,/^konec/p'

nebo

perl -ne '/^zacatek/../^konec/ and print'

a jak v awk?

awk '/^zacatek/,/^konec/ {print}'

[Hynek (Pichi) Vychodil]

P.S.: awk nepožívám, tohle jsem vyčetl za cca 1 min v jeho manuálu.

[qk]

no z nadpisu a zadani odhaduju ze se jedna o nejakou skolni ulohu a taky odhaduju, ze zadani zni vypsat text od slova1 do slova2. A pochybuju ze takhle specializovany reseni projde.Protoze to pocita pouze s moznostmi ze jak zacatek tak konec budou na zacatku radky, ale zadany text to splnuje ;)

[happy barney]

to už si snáď autor otázky dokáže prispôsobiť podľa svojich predstáv, dúfam

[Terka]

to bude ono! díky.

[Terka]

A když by se /^konec/ objevoval v textu víckrát, šlo by nějak vzít poslední nebo n-tý?

[Terka]

Myslím od 

/^zacatek/
.
.
.
.
/^konec/  =prvni
/^konec/  =druhý
.
.
.
/^konec/  =n-tý
/^konec/
/^konec/  =poslední

[Hynek (Pichi) Vychodil]

Od prvního /^zacatek/ po poslední /^konec/ v sedu například ne příliš hezké:

sed -n '/^zacatek/,${H;/^konec/{s/.*//;x;s/^\n//;p;d}}'

V awk a perlu by to samozřejmě mělo jít mnohem jednodušeji. Po n-tý výskyt v sedu už by byla nějaká nehezká prasárna, ale awk a perlu no problem, přece jen mají k dipozici proměnné.

[Hynek (Pichi) Vychodil]

To poslední ;d je zbytečné.

[Terka]

A šlo by to pomocí awk?

[Aleš Kapica]

Ty jo ti jsi otrava, já snad pohledám ten svůj skript. Zkus se ale nejdřív kouknout sem na BEGIN a END

[Aleš Kapica]

Omlouvám se. Přehlídnul jsem se. Prostě přes awk je to řešitelné, přes cykly a podmínky. Musel bych však nad tím popřemýšlet.