#!/bin/bash

if [ $# -ne 1 ]

then

    echo 'Uporaba: sh fibo n'

    exit

fi

 

y0=0

y1=1

stevec=2

if [ $# -eq 1 -a $1 -gt 2 ]

then

echo $y0

echo $y1

    while [ $stevec -le $1 ]

    do

        let "y3=$y0+$y1"

        echo $y3

 

        y0=$y1

        y1=$y3

        let "stevec=$stevec+1"

    done

fi

#!/bin/sh

if [ $# -ne 1 ]

then

echo napaka pri uporabi programa

exit

fi

 

dolzina=`echo -n $1 | wc -c`

 

if [ $dolzina -lt 8 ]

then

echo Prekratko geslo

exit

fi

 

if [ `echo $1 | grep [0-9]` ]

then

    if [ `echo $1 | grep [@#$%]` ]

    then

    echo geslo OK

    fi

fi

#!/bin/bash

 

if [ $# -eq 0 ]

then

echo Vnesi stevilo

exit

fi

 

if [ $1 -eq 1 ]

then

    echo 1

    exit

else

i=2

tmp=1

while true

do

    let tmp=$i*$tmp

    if [ $i -eq $1 ]

        then

        echo konec: $tmp

        exit

    fi

    let i=$i+1

done

fi

Napišite program v lupini, ki vsakih pet minut preveri,

če se na sistemu pojavi nek proces in ga poskusa ubiti.

Ime procesa podamo v ukazni vrstici.

 

Primer uporabe:

 

$ ubij netscape

 

bo na računalniku vsakih pet minut preveril,

če teče kak proces z imenom netscape, ter ga bo poskušal ubiti. Navodilo: pri tem obvezno uporabite ukaz kill.

#!/bin/sh

#############################

#   SPO zagovori vaj      #

#   Naloga 2            #

#   Avtor: Karlos      #

#   Datum: 10-Nov-07      #

#############################

# uporaba: ./ubij.sh imeProcesa #

if [ $# -lt 1 ]

then

    echo Napaka, manjka ime procesa

    exit

elif [ $# -eq 1 ]

then

    proces=$1

    while(true)

    do

        pid=`ps -e | grep $1 | gawk '// {print $1}'`

        #pid=`pidof $1`

        kill $pid 2> /dev/null

        sleep 10

    done

else

    echo Napaka!

    echo $*

fi

Napišite program v lupini, ki beleži dnevnik dosegljivosti računalnikov.

 Kot argument mu podamo datoteko, ki vsebuje spisek računalnikov,

program pa naj vsakih pet minut preveri, če so dosegljivi.

V neko datoteko (dnevnik) naj zapisuje, če kateri od računalnikov ni dosegljiv,

njegovo ime in čas, ko ni bil dosegljiv.

 

Primer uporabe:

 

$ preverjaj spisek_racunalnikov.txt

 

izpisuje v dnevnik:

 

io.fri.uni-lj.si ni dosegljiv ob 15:31

io.fri.uni-lj.si ni dosegljiv ob 15:36

io.fri.uni-lj.si ni dosegljiv ob 15:41

verbena.fe.uni-lj.si ni dosegljiv ob 15:41

#!/bin/sh

#############################

#   SPO zagovori vaj      #

#   Naloga 5            #

#   Avtor: Karlos      #

#   Datum: 5-Dec-07            #

#############################

# Uporaba: ./naloga5 datotekaRacunalnikov.txt #

 

if test $# -ne 1

then

    echo "Uporaba: ./naloga5 datotekaRacunalnikov.txt"

    exit

fi

 

while true

do

    for i in `cat $1`

    do

    if(ping -c 1 $i 1> /dev/null)

    then

    echo -n ""

        #echo $i" je dosegljiv ob " `date +%H:%M`

        #echo $i" je dosegljiv ob " `date +%H:%M`>> dosegljivost.txt       

 

    else

        echo $i" je nedosegljiv ob " `date +%H:%M`

        echo $i" je nedosegljiv ob " `date +%H:%M`>> dosegljivost.txt

    fi

    done

echo '###########################################'

sleep 5

done

Preučite jezik za pregledovanje tekstnih datotek awk (oz. gawk - GNU awk)

ter v njem napišite program, ki za vhod vzame neko HTML datoteko ter na standardni

 izhod izpiše seznam vseh povezav in slik, ki so vključene v datoteko

 (z <a HREF...> ali <img SRC .../>).

 

Primer uporabe:

 

$ gawk -f preveri.awk lalala.html

slika lala.gif

povezava http://www.fri.uni-lj.si

povezava http://www.ijs.si/slo

slika slike/kuku.jpg </a>

#############################

#   SPO zagovori vaj      #

#   Naloga 7            #

#   Avtor: Karlos      #

#   Datum: 10-Nov-07      #

#############################

# uporaba: gawk -f preveri.awk index.html #

#awk <search pattern> {<program actions>}#

 

/(src)|(href)/{  #najde vrstice

for(i = 1; i <= NF; i++)    # NF = number of fields

if($i ~ "[\"|'][^\"|']*[\"|']"){    # if field contains src || href

    split($i,tabela,"'")

    if(tabela[2] != "")

        print tabela[2]

 

    split($i,tabela,"\"")

    if(tabela[2] != "")

        print tabela[2]

    #print $i

 

}