Dotaz: nahrada za prazdneho radku za cislo

[koudelka]

Ahoj vsichni.

Potreboval bych pomoci s nasledujicim problemem (PROSIM).

mam textovy soubor, ktery se sklada z nasledujicich radku:

pradny radek

text

text

..

text

prazdny radek

text

prazdny radek

text

text

atd.

Popis: v souboru je prazdny radeya pak nasleduje jeden nebo vice radku textu a stale se to opakuje. A ja potrebuji na zacatek kazdeho textu (do toho pradneho radku) napsat cislo kolik nasleduje radku textu(az po dalsi mezeru).

Asi by se to melo resit pres cyklus until nebo while (na konec souboru) a nasledne hledat pradne radky od zacatku textoveho souboru, kdyz ten prazdny radek naleznu, tak se aktivuje dalsi cyklus, kde se znovu testuje pritomnost prazdneho radku a ukladam do promenne, kolikrat jsem musel tento cyklus provest, nez jsem narazil na dalsi prazdny radek, kdyz se tak stane, tak cyklus skonci a ja provedu nahrazeni pouze toho jednoho pradneho radku ulozenou promennou (kolikrat jsem musel opakovat vnoreny cyklus), pro ktery se toto vztahuje a pokracuji dale v prohledavani souboruaz na konec.

Vysledek:

V souboru bude text a vsechny pradne radky budou nahrazeny cislem, ktere budou odpovidat poctu radku textu(ktere nasleduji za cislem) .

priklad:

2

text

text

3

text

text

text

1

text

1

text

Toto reseni se mi zda velice tezkopadne, tak se ptam, existuje nejake elegantneji reseni a pokud ANO, tak jake.

Diky za pomoc

Odpovědi

[unchallenger]

tac soubor | sed '1{x;s/^/0/;x;};/^$/{g;p;s/.*/0/;h;d};x;s/$/+/;:1;t2;:2;s/^+0/01/;s/0+/1/;s/1+/+0/;t1;x' | tac

Vypisuje to ty počty řádků binárně, protože se mi nechtělo psát inkrementování pro každou desítkovou číslici. Ale to si snadno doplníš ;-)

[unchallenger]

Zapomněl jsem dodat: Zdravím Pichiho -- víš, že existuje implementace dc v sedu?

[unchallenger]

OK, tady je to v desítkové soustavě:

tac soubor | sed '1{x;s/^/0/;x;};/^$/{g;p;s/.*/0/;h;d};x;s/$/+/;:1;t2;:2;s/^+0/10/;s/0+/1/;s/1+/2/;s/2+/3/;s/3+/4/;s/4+/5/;s/5+/6/;s/6+/7/;s/7+/8/;s/8+/9/;s/9+/+0/;t1;x' | tac

[©]

Chceš nás vyděsit? Skoro se Ti to povedlo.

[koudelka]

diky

po dlouhe dobe jsem to pochopil. jak na to, tak uvidim,

[unchallenger]

Tu prostřední část můžeš napsat snáz v ledasčem, napsal jsem ji v sedu, protože jsem měl sedovou náladu. Trik je v těch tac na začátku a na konci...

[zabza]

Třeba v Perlu (samozřejmě s využitím Yetiho cool tac|...|tac nápadu)...

tac soubor|perl -pe '(/./ and ++$x) or ($_="$x\n" and $x=)' |tac

[Michal Marek (twofish)]

Ale udělat to celé v jednom průchodu a držet si v paměti jen aktuální blok textu by snížilo paměťovou náročnost na O(délka nejdelšího bloku)

[Michal Marek (twofish)]

Aha, ne tak docela, tac si standardní vstup ukládá na disk.

[unchallenger]

Šlo by to samozřejmě udělat jednoprůchodově a v pythonu či perlu by to byla trivialita. Dokonce i v sedu by to šlo celkem snadno -- musel by sis jen na začátku hold space uchovávat počítadlo a přidávat do něj řádky; až by skončil blok, celé bys to vypsal; trochu otravná by byla korektní inicializace a ukončení. Chm, ve srovnání s tou inkrementací v destíkové soustavě by se tím asi ten program ani moc neprodloužil.