ascii.awk

#!/usr/bin/awk -f
#------------------------------------------------------------------------------#
#                            Programmed By Liz                                 #
#------------------------------------------------------------------------------#
#===============================================================================
# awk can convert number -> character
#      but not character -> number
#
# awk can use char for array index
# so load an array of numbers using a character index
#
BEGIN {
   system("clear")
   ord_init()
   ord("A")          # chr -> num
   chr(65)           # num -> chr
}
#===============================================================================
#{
#}
#===============================================================================
#END {
#}
#===============================================================================
# functions
#-------------------------------------------------------------------------------
# character table 032 -> 127
function ord_init()
{
   for(i=32;i<128;i++)
   {
      c=sprintf("%c",i)          # # -> c
      ord_tbl[c]=i
   }
}
#-------------------------------------------------------------------------------
# chr -> num
function ord(char)
{
   printf("%s\n",ord_tbl[char])  # ary[c] = #
}
#-------------------------------------------------------------------------------
# num -> chr
function chr(numb)
{
   printf("%c\n",numb)
}
#===============================================================================