Shell Programming and Scripting

echo "apple" | fold -w1 | sort | uniq -c | awk '{print $2 "-->" $1}'

echo "apple" | awk '{
  l=length
  for(i=1;i<=l;i++) {
    s[i]=c=substr($0,i,1)
    if(match(c,"[a-zA-Z]")){
      a[c]++
    }
  }
  for(i=1;i<=l;i++) {
    c=s[i]
    if(a[c]) {
      print c " - " a[c]
      delete a[c]
    }
  }
}'

#!/bin/sh

w=$1 
o=.order

while [ "$w" ]; do
    # We need to pop the first character, c, from the word, w.
    # Determine w's length and generate a glob pattern, p, of
    # appropriate length, l.  With eval's help, use parameter
    # substitution to remove all trailing characters.
    p=
    l=$((${#w}-1))
    while [ $((l--)) -gt 0 ]; do
        p=$p?
    done
    eval c=\${w%$p}

    # Discard the character we've saved in c.
    w=${w#?}

    # If it's not alphanumeric, move on to the next.
    case $c in
        [^a-zA-Z0-9]) continue;;
    esac

    # For each alphanumeric, c, create a file named $c, which
    # will store one empty newline per character instance.  Also,
    # since we need to keep track of the order of the characters,
    # check if we've seen this character before.  If not, append
    # it to the order log, o.
    [ -f $c ] || echo $c >> "$o"
    echo >> $c
done

# Exit if no alphanumerics were present.
[ -f "$o" ] || exit 0

# Tally up and print out
while read c; do
    i=0
    while read x; do
        : $((++i))
    done < $c
    echo $c - $i
done < "$o"

rm ? "$o"

$ ./alnumcounter.sh apple
a - 1
p - 2
l - 1
e - 1

$ ./alnumcounter.sh '!#$!@#@apple    *(&((*^('
a - 1
p - 2
l - 1
e - 1

while(<DATA>){
	my %hash;
	my @arr = split("",$_);
	map {$hash{$_}++} @arr;
	foreach my $key ( keys %hash){
		print $key," -- ", $hash{$key},"\n";
	}
	print "-----------------\n";
}
__DATA__
apple
hello

# echo apple | nawk '{for(i=0;++i<=NF;){if($i ~ /[a-zA-Z0-9]/){a[$i]++}}}END{for(i in a)print i,a[i]}' FS= OFS="-->"

[root@sistem1lnx ~]# cat 3
applaeaaaaatestttttechoooooooaxxxwwwyy
 
[root@sistem1lnx ~]# ./charactercount 3
a_letter_count_8
p_letter_count_2
l_letter_count_1
e_letter_count_3
t_letter_count_6
s_letter_count_1
c_letter_count_1
h_letter_count_1
o_letter_count_7
x_letter_count_3
w_letter_count_3
y_letter_count_2

#!/bin/bash
#Character Count
variables () {
a=0
b=1
c=0
}
#Add New Line and Character Sorting
cat $1 | sed 's/ */\n/g' |sed '/^$/d' > tmpfile
#All Characters in others to tmp array
while read -r others
  do
    tmp[b]=$others
    ((++b))
  done < tmpfile
#Caracter Count
charcount=$b
# count decrease for "b=1"
let charcount=$charcount-1
variables ""
#Character
while read -r char
  do
    chkchar[a]=$char
    let charcountreset=$charcount+1
    charcountfor=$charcountreset
 while [ $(( charcountreset -= 1 )) -gt 0 ]
   do
     if [ "${chkchar[a]}" == "${tmp[b]}" ] ; then
        ((++count[c]))
     fi
((++b))
   done
b=1
((++a))
((++c))
  done < tmpfile
variables ""
rm -f ununiqtmpfile
for i in ${tmp[@]}
    do
     echo $i"_letter_count_"${count[c]} >> ununiqtmpfile
     ((++c))
    done
#echo "The Results"
#cat ununiqtmpfile
# Uniq Results
b=0
while read -r char
 do
  not=0
   while read -r char2
    do
      if [ "$char" == "$char2" ] ; then
         ((++count))
      fi
    done < ununiqtmpfile
  if [ $count -eq 1 ] ; then
     uniq[b]=$char
     ((++b))
  fi
 if [ $count -gt 1 ] ; then
   if [ `echo ${#uniq[@]}` -eq 0 ] ; then
      uniq[b]=$char
      ((++b))
   else
      for i in ${uniq[@]}
          do
             if [ "$i" != "$char" ] ; then
                ((++not))
                 if [ $not -eq `echo ${#uniq[@]}` ] ; then
                    uniq[b]=$char
                    ((++b))
                 fi
             fi
          done
   fi
 fi
 done < ununiqtmpfile
#Now for show the result
    for i in ${uniq[@]}
        do
          echo $i
        done