Tömb - feladat

Számoljuk ki 10_feladat.txt-ben lévő szavak 
előfordulását, majd írjuk ki
–
figyeljünk oda arra, hogy a különböző írásjelek miatt 
egy szó ne szerepeljen többször → reguláris 
kifejezés segítségével adjuk meg az elválasztó 
jeleket
–
üres szó előfordulása nem érdekel → töröljük a 
tömbünkből


  GNU nano 2.2.6               Fájl: 2.awk                           Módosítva  

#! /usr/bin/awk -f
BEGIN {
        FS = "[ \, \. \? \! \" \-]+"
}
{
        for(i=1;i<=NF;i++){
                szavak[$i]++;
        }
}
END {
        for(VALTOZONEV in szavak){
                print(szavak[VALTOZONEV],VALTOZONEV);
        }
        # tomb elemeinek bejarasa
        # TOMBNEV[INDEX] - elofordulasanak szama
}
# ne jelenjen meg awk error futtataskor:
# futtataskor: 2> /dev/null




  GNU nano 2.2.6               Fájl: 2.awk                           Módosítva  

#! /usr/bin/awk -f
BEGIN {
        FS = "[ \, \. \? \! \" \-]+"
}
{
        for(i=1;i<=NF;i++){
                szavak[$i]++;
        }
}
END {
        for(VALTOZONEV in szavak){
                print(szavak[VALTOZONEV],VALTOZONEV);
        }
        # tomb elemeinek bejarasa
        # TOMBNEV[INDEX] - elofordulasanak szama
}
# ne jelenjen meg awk error futtataskor:
# futtataskor: 2> /dev/null


////////////////////////////////////////////////////////////////////////

length - hany darab karakter tartalmaz
awk '{print(length($0))}' 13_feladat.txt 

index - 2. parameter egy szo, visszater azzal a pozicioval amivel az a szo kezdodik
awk '{print(index($0, "nem"))}' 13_feladat.txt

split - 
Töltsünk be minden sort egy tömbbe, ahol minden 
karakter külön tömb-elemen helyezkedik el. A 
„nem” szótól kezdve írjuk ki a sorokat.
  GNU nano 2.2.6               Fájl: 4.awk                                      

#! /usr/bin/awk -f

{
        split($0, charA, "") # charA egy tomb amibe ment
        for(i=1;i<=length($0);i++){
                print(charA[i]); # tomb indexeles
                }

}


  GNU nano 2.2.6               Fájl: 4.awk                                      

#! /usr/bin/awk -f

{
        ni=index($0,"nem")
        split($0, charA, "") # charA egy tomb amibe ment
        for(i=ni;i<=length($0);i++){
                str = str""charA[i]
                }
        print(str)

}