Dotaz: Bash - smazání řádku, pokud k němu neexistuje podobný řádek

[Jirka696]

Zdravím vás,

chtěl bych se zeptat, zda v bashi existuje nějaký příkaz, nejspíše sed, který mi smazal řádek pod podmínkou, že existuje ještě jeden určitý řádek.

Uvedu na příkladu.

ABCDE ---- 1 text
BFLMA ---- 1 text
XYZ   ---- 2 text
ATD   ---- 1 text

Chci, aby to vždy porovnalo 1 text a našlo k sobě "partnera" 2 text. Pokud by nenašlo, tak by to řádek smazalo.

Výsledek by tedy vypadal takto:

ABCDE ---- 1 text
XYZ   ---- 2 text

Děkuji za rady

Odpovědi

[mhepp]

Hmmm... Asi nerozumim Tvemu zadani.

Takze mam soubor, ktery prochazim. A pokud najdu vyskyt radku, ktery obsahuje "1 text", tak ho vypisu a vyhledam radek, ktery obsahuje "2 text", ten vpisu a koncim.

Co mam delat v pripadech, ze "1 text" nenaleznu? Nebo pokud je "2 text" pred "1 text"?

Jedno reseni by mohlo byt:

grep -c 1 "1 text" soubor && grep -c 1 "2 text" soubor

nebo

awk 'BEGIN{nalezen=0} /1 text/{pom=$0; nalezen=1} /2 text/{if (nalezen==1) {print pom; print $0;}}' soubor

Pokud Ti nevyhovuje toto reseni, specifikuj lepe zadani.

[Jirka696]

no to mi nějak nefugnuje zkusim to ještě upřesnit

mam např

Hráč Tereza - B vojak20
Hráč Honza - A vojak
Hráč Jirka - A vojak3
Hráč Karel - A vojak2
Hráč Jméno - A vojak7
Hráč Jméno - B vojak3
Hráč Franta - B vojak 
Hráč Eliška - A vojak

a já potřebuju vybrat jen ty hráče, kteří mají k sobě druhou dvojici dvojice je dána tím, že k "A vojak" patří "B vojak", tedy písmeny A a B a poté stejným stringem

čili potřebuju udělat např to, že pro "A vojak", potřebuju najít "B vojak" , pokud nenajdu žádnou B dvojici, tak chci všechny řádky s "A vojak" smazat obdobně pro další, pro "A vojak3" chci najít "B vojak3"

výstup tedy bude

Hráč Honza - A vojak
Hráč Jirka - A vojak3
Hráč Jméno - B vojak3
Hráč Franta - B vojak

[mhepp]

Nastinene reseni samozrejme nebude fungovat... Takhle je tu dobre doplnene zadani, tak se na to muzeme podivat.

Tak si treba vybereme vsechny unikatni vojaky (jedno, jestli A nebo B) a podivame se, jestli existuje pro daneho vojaka A-B par. Ulozime si prvni vyskyt A vojaka i B vojaka, a pokud mame na konci oba dva, tak je vypiseme:

cat soubor | awk '{print $NF} '  | sort | uniq | while read i; do
    awk 'BEGIN{na=0; nb=0} END{ if(na * nb == 1){print ra; print rb} /A '$i'$/{ if (na==0){ ra=$0; na=1} } /B '$i'$/{ if(nb==0){rb=$0; nb=1} }' soubor
done

Skript funguje pouze v pripade, ze na konci radku nejsou prebytecne mezery a zaroven, ze neni platny nasledujici pripad:

...
Hrac K - A vojak
...
Hrac L - B vojak
...
Hrac M - A vojak
...
Hrac N - B vojak
...

Mysleno tim, ze existuje vice paru se stejnym vojakem.

[mhepp]

Příloha:

• awk_reseni.awk (284 bytů)

A jeste jedno reseni, ciste pomoci awk...

Skript v priloze pustime takhle:

cat soubor | awk -f awk_reseni.awk

Tento skript zvladne prebytecne mezery, ale zase bere jen prvni vyskyt paru.

[mhepp]

Takové mám nejradši... Ani nenapíšou, jestli to funguje... :(