9 Řetězcové funkce

<<vzad obsah vpřed>>

    10 Podmíněný příkaz a podmíněný výraz

    10.1 Podmíněný příkaz

if ( podmínka ) příkaz1 [ else příkaz2 ]

• Příkaz1 a příkaz2 mohou být složenými příkazy - tj. sekvencí jednoduchých příkazů, uzavřených ve složených závorkách {}
• v podmínce mohou figurovat relační operátory, operátory shody vzoru, operátory příslušnosti indexu v poli, logické operátory a závorky.

Jazyk awk má tyto logické operátory:

•   &&  konjunkce (logické and)
•   | | disjunkce (logické or)
•   !  negace.

Př.:

if ( cislo >= 0 )
odmocnina = sqrt( cislo )
else
odmocnina = sqrt( -1*cislo ) "i"

V jazyce awk má přiřazovací výraz hodnotu, takže může být zapsán i v podmínce.

Př.:

if ( ( D = b**2 - 4*a*c) == 0 ){
print ("Jeden kořen")
print ("D=",D)
}
else{
print ("Dva kořeny")
print ("D=",D)
}

    10.2 Podmíněný výraz

proměnná = ( podmínka ) ? výraz1 : výraz2 ,

ekvivalentní

Př.:

odmocnina = (cislo>=0) ? sqrt(cislo) : sqrt( -1*cislo) "i"

<<vzad obsah vpřed>>

    11 Cykly

• while
• do while
• for
• " for in ".

    11.1 Cyklus while

while ( podmínka ) .

• Nemusí proběhnout ani jednou
• tělem cyklu může být, stejně jako u dalších cyklů sekvence příkazů, uzavřená do složených závorek {}.

Př.:

Názvy vstupních souborů, uvedených na příkazové řádce při vyvolání awk se na začátku zpracování vytisknou takto:

BEGIN {
pocet = 1
while ( pocet <= ARGC ){
pocet++
print(ARGV[pocet])
}
}

    11.2 Cyklus do while

Cyklus do - while s testem na konci proběhne alespoň jednou:

do příkaz while ( podmínka )

Př.:

Aktuální záznam obsahuje v jednotlivých položkách názvy fotbalových klubů v pořadí jejich ligových výsledků. Je třeba nalézt , jaké pořadí má klub s názvem SPARTA:

{nalezena = 0
poradi = 0
do {
++poradi
nalezena = ( $poradi == "SPARTA")
}
while (!nalezena && poradi <= NF)
if (nalezena)
print ("Poradi SPARTY v lize:",poradi)
else
print ("Pozor! SPARTA není ve výsledcích )
}

<<vzad obsah vpřed>>

    11.3 Cyklus for

for ( [ výraz1 ]; [ podmínka ]; [ výraz 2] ) příkaz

• Zobecnění cyklu while
• umožňuje přehledně zapsat do hlavičky cyklu některé činnosti, které by bylo jinak nutno psát odděleně .

Je ekvivalentní se zápisem
výraz1
while ( podmínka ){
     příkaz
     výraz2
}

• Pokud se neuvede výraz1 , nevykonají se inicializační příkazy
• nezadá-li se výraz2 pak se neprovedou příkazy na konci cyklu
• Není-li zadána podmínka, netestuje se ukončení cyklu a je třeba vyskočit příkazem break
• příkaz for (;;) je "nekonečný" cyklus.

Př.:

Příklad uvedený u cyklu while se pomocí cyklu for přepíše:

BEGIN {
for ( pocet = 1; pocet <= ARGC; pocet++ )
print(ARGV[pocet])
}

    11.4 Cyklus "for in"

for ( index in pole ) příkaz

Cyklus proběhne přes všechny prvky asociativního pole

Př.:

V asociativním poli kurz jsou uloženy kurzy měn, indexované jejich zkratkami a počítám , kolik valut dostanu za 100 Kč.

BEGIN{
kurz["DM"]=20.1; kurz["US $"]=35.1; kurz["Sk"]=1.1
print "Za 100,- Kc dostanu: "
for (mena in kurz) print  100/kurz[mena]," ", mena
}

<<vzad obsah vpřed>>

    11.5 Opuštění a opakování cyklu

• V jakémkoliv cyklu se lze vrátit na začátek povelem continue bez toho, aby se vykonaly příkazy, které ještě za ním následují
• povel break slouží k okamžitému opuštění cyklu z jakéhokoliv jeho místa jeho těla , aniž byla splněna podmínka jeho ukončení.

Př.:

Příklad. uvedený u cyklu do while přepíšeme pomocí "nekonečného" cyklu for a příkazu break :

{nalezena = 0
poradi = 0
for (;;){
++poradi
nalezena = ( $poradi == "SPARTA")
if (nalezena || poradi =° NF)
break
}
if (nalezena)
print ("Poradi SPARTY v lize:",poradi)
else
print ("Pozor! SPARTA není ve výsledcích"
}

<<vzad obsah vpřed>>

    12 Uživatelské funkce v awk

Definují se kdekoliv v programu mimo akci:

function jméno ( [ parametr [, parametr ...]]) {
      tělo_funkce
}.

• Místo function lze psát funct
• vrací-li hodnotu, pak v těle funkce příkaz return.
• může být rekurzivní
• Volání
  • jméno ( [ argument [ ,argument ...]])
  • proměnná = jméno ( [ argument [, argument ...]])
• parametry funkce se předávají hodnotou, takže slouží pouze k přenosu dat do těla funkce
• výsledky pouze funkční hodnotou za return nebo přes globální proměnné programu.

Př.:

Funkce prolozene vrací textový řetězec zadaný v argumentu zpracovaný tak, že za každý znak vloží mezeru.

function prolozene(text) {
l=length(text);
for ( i =1; i<= l; i++ )
vysledek = vysledek substr(text,i,1) " "
return vysledek
}

Př.:

Rekurzivní funkce pro výpočet faktoriálu:

function faktorial(cislo) {
return ( cislo <= 1 ? 1 : faktorial( cislo - 1 ) * cislo )
}

    13 Přerušení běhu programu

• Příkaz exit
• je-li v jiné akci než je akce příslušející vzoru END, pak se vykoná akce pro vzor END pokud je definována a program končí
• v akci pro vzor END lze nastavit kód návratu exit [ výraz ]
• nezadá-li se výraz , se nastaví kód návratu 0.

    14 Vyvolání shellovského povelu

system ( povel ) vyvolá shellovský povel a vrací jeho výstupní kód.

<<vzad obsah vpřed>>

    15 Příkazy tisku

• Jednoduchý příkaz print
• printf s rozsáhlými formátovacími možnostmi
• standardní výstup awk můžeme přesměrovat do souboru či do roury.

    15.1 Print

• Vytiskne na standardní výstup hodnoty výrazů oddělené
• oddělovači položek definovaným proměnnou OFS ( standardně mezerou)
• po každém příkazu print vytiskne oddělovač záznamů uložený v proměnné ORS (standardně novou řádkou)
• neuvede-li se žádný výraz , je to rovnocenné příkazu print $0 (tisk aktuálního záznamu)
• prázdná řádka se vytiskne příkazem print "".

    15.2 Printf

• printf formát , výraz [, výraz ...].
• Stejný jako v C
• formát definuje tvar, tisku výrazů
• může obsahovat formátovou specifikaci začínající znakem %, která popisuje jak se manipuluje s příslušným výrazem a ostatní znaky, které se opisují na standardní výstup

Formátová specifikace

Př: Tisk formátovaný příkazem printf (standardní OFMT)

<<vzad obsah vpřed>>

    15.3 Tisk do souboru - přesměrování

• K tisku do souboru slouží stejně jako v shellu přesměrování standardního výstupu pomocí > a >>
• > soubor se otevře , pokud již otevřen nebyl a obsahem standardního výstupu se přepíše.
• >> standardní výstup příkazů připojí za aktuální obsah souboru
• pokud soubor neexistuje, založí se
• jméno souboru je řetězcová konstanta, kterou je třeba uzavřít do uvozovek, protože jinak by jej awk považoval za proměnnou
• je-li jméno souboru výsledkem operace zřetězení (operátor zřetězení je mezera), musí být výsledný výraz uzavřen do závorek
• awk může mít současně otevřeno 15 souborů
• soubor se explicitně zavře příkazem close ( soubor ).

Př.:

Ze souboru zamestnanci.plat. chceme extrahovat položky jméno, příjmení a prémie a uložit do souboru zamestnanci.premie:

Př.:

Na konec souboru zamestnanci.premie vytvořeného v předcházejícím příkladě chceme přidat prázdnou řádku a řádku s textem "Zapsala: účetní Pavla Škrtilová":

awk '{printf "%\n%s","Zapsala: účetní Pavla Škrtilová"}' >> "zamestnanci.premie"

Př.:

Napište program , který vytvoří pro vstupních soubory bezpečnostní kopie s příponou .bak ( pro standardní vstup soubor stdin.bak).

awk '
{
if ( NR ==1 ) { # První řádka nového vstupního souboru ?
      if (FNR != 1 ) # Není prvý vstupní soubor ?
            close ( soubor )
      soubor= FILENAME ? "-" "stdin.bak : (FILENAME ".bak")
       print $0 >> soubor
}

    15.4 Tisk do roury

• Může být otevřená pouze jedna roura
• přesměrování standardního výstup příkazů tisku
• print | " shellovský_příkaz "
• zavření roury close (" shellovský_příkaz ").

Př.:

Ze souboru zamestnanci.plat chceme prohlédnout jména a příjmení po stránkách:

<<vzad obsah vpřed>>

    16 Vstup dat

• Ze vstupních souborů zadaných jako argumenty příkazové řádky při vyvolání
• ze standardního vstupu
• z jiných souborů
• z roury.

Data čtená ze vstupních souborů se dělí

• na záznamy oddělené oddělovačem záznamů RS
• záznamy se dělí na pole, ohraničené oddělovači položek FS
• pro nastavení hodnot vnitřních proměnných FS a RS lze použít regulární výrazy
• oddělovač polí se může nastavit při vyvolání awk volbou -F.

Př.:

Ze souboru /etc/passwd chceme vytisknout logname a úplné jméno pro všechny uživatele systému:

cat /etc/passwd | awk '
{
BEGIN {FS = ":"}
       {print $1, $5 }
}

Př.:

Soubor adresy.txt má tuto strukturu záznamu:

Je třeba vytisknout telefonní seznam, obsahující na každé řádce jméno a příjmení následované telefonním , faxovým a modemovým číslem (oddělovač polí je nová řádka, oddělovač záznamů prázdný znak)

cat adresy.txt | awk '
{ BEGIN
       {FS ="\n"; RS="" }
       {printf "%20s\t%40s",$1, $5}
}| lpr

Použití funkce getline

Přečtení dalšího záznamu

• z aktuálního vstupního souboru
• z jiného datového souboru
• z roury
• při každém vyvolání přečte jeden záznam
• bez chyby vrací hodnotu 1
• na konci souboru 0
• při chybě čtení -1
• getline bez parametrů načte záznam z aktuálního vstupního souboru a nastaví hodnoty proměnných NF, NR , FNR, $0, $1,...,$NF.
• getline proměnná přečte další záznam z aktuálního vstupu, uloží do proměnné ale nenastaví hodnoty vnitřních proměnných NF, NR , FNR, $0, $1,...,$NF.
• getline <" soubor " čte ze souboru , nastaví NF, NR , FNR, $0, $1,...,$NF
• getline proměnná <" soubor " přečte záznam do proměnné ; NF, NR , FNR, $0, $1,...,$NF nenastaví
• " shellovský povel " | getline přečte záznam do $0, $1,...,$NF a aktualizuje NF, NR , FNR
• " shellovský povel " | getline proměnná přečte další záznam z roury do proměnné a tedy nemění hodnoty NF, NR , FNR, $0, $1,...,$NF.

Př.:

"date '%YYYY'" | getline po_Kristu

uloží do proměnné po_Kristu aktuální letopočet.

<<vzad obsah vpřed>>

    17 Spolupráce awk a shellu

Text programu v awk z příkazové řádky třeba zapsat mezi apostrofy (ochrana některých znaků awk před nežádoucí interpretací shellem - např. $1, $2, ..., značící položky záznamu awk, jsou v shellovském skriptu parametry příkazové řádky Chceme-li do awk programu předat hodnotu parametru z příkazové řádky ( $1, $2,...), musíme je zamaskovat před jejich interpretací a ponechat jim význam z nadřazeném shellu:

• uzavření proměnné označující argumenty příkazové řádky do apostrofů - '$1, '$2',...
• uzavření programu v awk do apostrofů, tím se ponechá znaku $1 jeho význam v shellu - a tedy i v programu awk bude $1 obsahovat hodnotu prvého parametru příkazové řádky.Pak však musíme proměnnou awk obsahující hodnotu aktuálního záznamu psát jako \$0, prvou položku jako \$1 atd.
• pragmatické řešení - prvou proměnnou z příkazové řádky ukládá awk v ARGV[1] , atd. (nikoliv však ve staré verzi).

Př.:

Soubor exper.data obsahuje v prvém sloupci nezávisle proměnnou a v druhém sloupci závisle proměnnou. Sestavte skript transf, který vytiskne nezávisle proměnnou a transformovanou závisle proměnnou. Jako parametr má řetězec udávající typ transformace : log, sin, cos.

Řešení 1

awk '{
if ( '$1' == "log" )
$2 = log($2)
if ( '$1' == "sin" )
$2 = sin($2)
if ( '$1' == "cos" )
$2 = cos($2)
print $0
}'

Řešení 2

awk "{
if ( $1 == "log" )
\$2 = log(\$2)
if ( $1 == "sin" )
\$2 = sin(\$2)
if ( $1 == "cos" )
\$2 = cos(\$2)
print \$0
}'

    

Řešení 3

awk '{
if ( ARGV[1] == "log" )
$2 = log($2)
if ( ARGV[1] == "sin" )
$2 = sin($2)
if ( ARGV[1] == "cos" )
$2 = cos($2)
print $0
}'

Př.:

Napište program, který na standardní výstup opíše pouze tu položku vstupního souboru, jejíž číslo je parametrem skriptu.

Řešení 1

awk '{ print $'$1' } '

Řešení 2

awk " {print \$$1 }"

Řešení 3

awk ' {print $ARGV[1] }

<<vzad obsah