Dotaz: nahrada textu za text ze souboru

[koudelka]

Ahoj vsichni,

mam nasledujici problem, ktery vim, ze se da resit velice divnym zpusobem a ja vim, ze se da resit velice elegantne treba pomoci awk, ale bohuzel nevim jak.

mam soubor, kde na kazdem radku je napsano nasleduji:

pepa 100

tomas 200

petr 300

mirka 400

techto zaznamu meze byt n, (radove ne vice jak 1000)

pak mam druhy soubor, kde na kazdem radku jsou tri slova

pepa tomas ignac

mirka pepa rudolf

petr pepa martin

tomas tomas karel

a ja potrebuji prvni dve slova nahradit cislama ze souboru prvniho. Mohl byste mi nekdo poradit jak na to, kdyz o awk toho vim opravdu jen malo. Vim, ze bych si musel prvni soubor ulozit do jednorozmerneho pole, kde by index byl nazev pole[pepa]=100, pole[tomas]=200 atd. a pak bych prochazel radek po radku v druhem souboru a vyhledaval bych nasledujici:

pepa tomas ignac

prvni=pole[pepa] => prvni=100

druhy=pole[tomas] => druhy=200

atd.

prvni dve slova bych nahradil za cisla dle prvniho souboru,

to je tak asi princip, ale nevim jak na to, jiz jsem neco zkousel v awk, ale bez uspechu

Diky za vsechny rady, ktere mi pomohou dosahnout cile

Odpovědi

[unchallenger]

Potřebuješ jen sort (3x, není-li žádný soubor na začátku setříděný), join (2x) a trochu myslet ;-)

[Petr]

Človíčku chodíš někdy spát ? Já to jednou vydržel od neděle ráno do pátku do oběda a pak jsem 52 hodin nevylez z postele.

[Zdeněk Burda]

Ne nahodou od pátka do neděle? To znám, to se dá vydržet, ale člověk si tim naprosto rozhodí spaní. Od neděle do pátka si nedokážu představit a podle zkušeností z koleje je to nereálné. Pokud bys teoreticky byl tak dlouho vzhůru, tak ti budou asi volat záchranku (nebo pohřebák).

[VícNežNic]

Od neděle do pátku tomu taky nevěřím, já sotva přežiju jeden den

[Petr]

Možná je to nereálné ale je to tak. Potřeboval jsem rychle prachy abych mohl jet s babou na dovolenou tak jsem dělal na tři směny . Měl jsem mezi nima půl hodiny času na kafe. Nejhorší je to třetí noc. V pátek jsem dopoledne vyfasoval prachy a šel spát. Probudil jsem se až v neděli k večeru. No a taky mě v té době bylo 21, dnes by mě to už zabilo (no a taky bych to už kvůli babě neudělal i když jsem si ji vzal).

[gimper]

perwitin rulez ze ?

[Petr]

Bohužel musím zklamat, nikdy jsem nic takového neokusil. Alkohol a nikotin jsou jediné drogy se kterými mám zkušenost.

[Semo]

Verim tomu. Ked sa odovzdaval projekt, tak z nedele na pondelok som spal asi 3-4h a potom 2h zo svrtka na piatok. A cely cas medzi tym sa makalo. Spotreba kavy: jedna za noc.

Na druhej strane, ked som sa pozdejsie pozrel na tie texty, ktore som v tom obdobi pisal, tak boli priserne. Odstavce nedavali zmysel. Obcas si susedne vety odporovali a pod.

[Petr]

"Odstavce nedavali zmysel." To mě říkala moje ruštinářka. Bohužel tento stav jsem nikdy nedokázal změnit ani když jsem se vyspal dorůžova. Ruštinu mě učili deset let a nikdy jsem nepochytil jak vypadá ten jejich tvrdý znak.

[unchallenger]

Pak taky člověk píše bludy... sort a join sice lze použít, ale soubor se tím přetřídí (čti: přeháže), což nemusí každý chtít.

Jinak je ten princip správně, tak napiš, cos stvořil, a někdo ti poví, kde v tom máš chybu...

[koudelka]

zatim jsem vymyslel pouze princip,

jak to vytvorit, tak to zatim nevim, protoze se s awk zatim ucim a tak zkousim nejake jednoduche prikazy(pouze akce bez vzorku) a pak se hned vrhnu na neco slozitejsiho. snad napisu behem tydne, protoze jsem doma, lecim se po brani madli, tak budu mit dost casu na programovani pomoci awk

zatim

[koudelka]

Zdravim vsechny, Skript jsem vymyslel a tady je: spoustim z prikazove radky (zapsano ve spustitelnem soboru)

#nahrada prvnich dvou zaznamu z kazdeho radku

awk -f awk_config $soubor.tmp1 > $soubor.tmp2

a zde prikladam awk skript (uvnitr je test na pritomnost cisel - na techto radcich se nic delat nebude)-reaguje pouze na radky (jiz jinde mam test, kde mi podminak >="a" vyhovuje), ktere maji jako prvni zaznam slova(snad pochopitelne)

BEGIN { while ( getline <"soubor" ) ( jmena[$1]=sprintf("%s" , $2)) }
$1>="a" { prvni = jmena[$1]
          druhy = jmena[$2]
          printf( "%s %s %s\n", prvni, druhy, $3 ) }
$1<"a"  # zkopiruje radky na vystup a nic jineho neprovede

Na to, ze jsem o awk nevedel skoro vubec nic, tak jsem rad, ze je to funkci.

zatim Cyril