Analizuoja failo raidžių statistika
#!/bin/bash
DIALOG=${DIALOG=dialog}
declare -a lines
declare -a simboliai
declare -a skaicius
declare -a skirtukai
declare -a skirtuku
E_BADARGS=65
let i=0
let a=0
skirtukai=“, „
#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
print ()
{
le=${#simboliai[*]}
sk=0
echo “ File: ‘$FILE’ stats“
echo “ ~~~~~~~~~~~~~~~~~~~~~~~~~~“
echo
echo
echo
echo „———————–“
echo „|SIMBOLIS | DAZNUMAS“
echo „———————–“
filename=$OUTFILE
echo „File: ‘$FILE’ stats“ > $filename
while [ $sk -lt $le ]
do
echo „|${simboliai[sk]} | ${skaicius[sk]}“ >> $filename
echo „|${simboliai[sk]} | ${skaicius[sk]}“
let sk=sk+1
done
echo „———————–“
}
#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
clear ()
{
let index=0
while [ $index -lt 50 ]
do
echo
let index=index+1
done
}
#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
split ()
{
nz=0
splitLength=${#skirtukai}
echo „SKIRTUKAI: $skirtukai“
echo „Skirtuku skaicius: $splitLength“
while [ $nz -lt $splitLength ]
do
skirtuku[nz]=${skirtukai:$nz:1}
echo „$nz ————- ${skirtuku[nz]}“
let nz=nz+1
done
skirtuku[nz]=““
}
#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Help ()
{
$DIALOG –title „HELP“ –clear
–yesno “ Pasirinkite viena is meniu punktu n Iveskite ivedimo failo pavadinima n Iveskite isvedimo failo pavadinima n Created by Nerijus Kliauba n Lotynisku raidziu statistika nnn Continue?“ 20 60
case $? in
0) ;;
1)
exit $?;;
esac
}
#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Count ()
{
split;
exec 3< „$FILE“
while rread curline <&3; do
if [ -z „$curline" -o „${curline:0:1}" = „#" ]; then continue; fi
lines=(„${lines[@]}[@]$curline“)
lineLength=${#lines[i]}line=${lines[i]}x=0
le=0
while [ $x -[ $x -lt $lineLength ]p>do
ind=0
hi=${#skirtuku[*]} le=${#simboliai[*]} <[*]
sk=0
tikrinti=0
pass=0
masyvas[x]=${[x]e:$x:1}
#———————————————
while [ $ind[ $ind -lt $hi ]!-- Quick Adsense WordPress Plugin: http://quickadsense.com/ -->
do
if [[ ${m[[ ${masyvas[x]${skirtuku[ind]}[ind]
then
echo “ RASTAS SKIRTUKAS:“
echo „$ind – |${skirtuku[ind]}[ind]
pass=1
fi
let ind=ind+1
done
#———————————————-
if [ $pas[ $pass == 0 ]
then
echo „KAS eina: ${masyvas[x]}[x]/p>
#———————————————-
if [ $le [ $le == 0 ]
then
simboliai[le]=$[le]yvas[x]} skaicius[le]=1[le]
fi
#———————————————-
while [ $sk [ $sk -lt $le ]p> do
if [[ ${s[[ ${simboliai[sk]{masyvas[x]} ][x]
then
temp2=${skaicius[sk]}<[sk]
let temp2=temp2+1
skaicius[sk]=$[sk]2
tikrinti=1
fi
let sk=sk+1
done
#———————————————
if [ $tik[ $tikrinti == 0 ]
then
simboliai[le]=$[le]yvas[x]} skaicius[le]=1[le]
fi
#———————————————-
fi
#————————————————
let x=x+1
done
let i=i+1
done
exec 3<&-
}
#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# 29 Checks if file exists.
chfl ()
{
if [ ! -f[ ! -f $FILE ]
echo „File „$FILE“ doesn’t exist.“
Help
echo „Write filename:“
read FILE
fi
}
#8888888888888888888888888888888888888888888888888888888888888888888
#88888888888888888888888 MAIN’as 8888888888888888888888888888888
#8888888888888888888888888888888888888888888888888888888888888888888
clear;
echo „——————————————-„
echo „| MENIU |“
echo „——————————————-„
echo “ created By Nerijus Kliauba“
echo „“
echo „“
echo “ 1. Run“
echo “ 2. Help“
echo “ 3. Exit“
echo „“
echo „“
echo „Pasirinkite:“
read komanda
case „$komanda“ in
1)
clear;
echo „Write input filename:“
read FILE
clear;
echo „Write output filename:“
read OUTFILE
clear
chfl;
clear;
Count;
print;
;;
2)
Help;
clear;
echo „Write input filename:“
read FILE
clear;
echo „Write output filename:“
read OUTFILE
clear
chfl;
clear;
Count;
print;
;;
3)
exit 0
;;
*)
Help;
exit 0
;;
esac
exit $?
