Converter em Literal
Publicado por DAVISON MARCEL PASQUALINI (última atualização em 29/11/2011)
[ Hits: 5.112 ]
Converte números em sua forma literal (ingles e portugues). ex:
./literal -p 10
dez
./literal -e 10
ten
Foi feito para atender uma necessidade de um colega do vol, mas como foi meio corrido ele está um pouco maior do que deveria ... mas funciona. Converte arquivos também.
#!/bin/bash
# literal.sh
# --------------------------------------
# Script Viva o Linux
# --------------------------------------
#
func_unidade_x ()
{
case $dig in
"0" )
saida=""
;;
"1" )
saida="one"
;;
"2" )
saida="two"
;;
"3" )
saida="three"
;;
"4" )
saida="four"
;;
"5" )
saida="five"
;;
"6" )
saida="six"
;;
"7" )
saida="seven"
;;
"8" )
saida="eight"
;;
"9" )
saida="nine"
;;
esac
}
func_dez_x ()
{
dig_ax5=`expr $num + 2`
num_1="`echo $numero | cut -c $dig_ax5`"
case $dig in
"0" )
saida=""
;;
"1" )
func_dez1_x
;;
"2" )
saida="twenty"
func_dez2_x
;;
"3" )
saida="thirty"
func_dez2_x
;;
"4" )
saida="fourty"
func_dez2_x
;;
"5" )
saida="fifty"
func_dez2_x
;;
"6" )
saida="sixty"
func_dez2_x
;;
"7" )
saida="seventy"
func_dez2_x
;;
"8" )
saida="eighty"
func_dez2_x
;;
"9" )
saida="ninety"
func_dez2_x
;;
esac
}
func_dez1_x ()
{
case "$num_1" in
"0" )
saida="ten"
;;
"1" )
saida="eleven"
;;
"2" )
saida="twelve"
;;
"3" )
saida="thirteen"
;;
"4" )
saida="fourteen"
;;
"5" )
saida="fifteen"
;;
"6" )
saida="sixteen"
;;
"7" )
saida="seventeen"
;;
"8" )
saida="eighteen"
;;
"9" )
saida="nineteen"
;;
esac
avanca
}
func_dez2_x ()
{
if [ "$num_1" = "0" ]; then
avanca
else
saida="$saida -"
fi
}
func_cem_x ()
{
dig_ax2=`expr $num + 2`
dig_ax3=`expr $num + 3`
num_1="`echo $numero | cut -c $dig_ax2-$dig_ax3`"
case $dig in
"0" )
saida=""
;;
* )
func_unidade_x
saida="$saida hundred"
;;
esac
if [ "$num_1" = "00" ]; then
avanca
avanca
else
saida="$saida"
fi
}
avanca ()
{
num=`expr $num + 1`
cont=`expr $cont - 1`
}
resolve_numero_x ()
{
case $cont in
"0" )
;;
"1" )
func_unidade_x
;;
"2" )
func_dez_x
;;
"3" )
if [ "$numero" -eq "1000" ]; then
texto="$texto thousand"
elif [ "$numero" -gt "1000" ]; then
texto="$texto thousands"
fi
func_cem_x
saida="$saida"
;;
"4" )
func_unidade_x
;;
"5" )
func_dez_x
;;
"6" )
func_cem_x
if [ "$numero" -eq "1000000" ]; then
texto="$texto million"
elif [ "$numero" -gt "1000000" ]; then
texto="$texto millions"
fi
;;
"7" )
func_unidade_x
;;
"8" )
func_dez_x
;;
"9" )
func_cem_x
;;
* )
clear
echo "ERROR: Number $numero exceded script max number (999.999.999)!"
;;
esac
}
principal_x ()
{
cont_x=`echo $numero | wc -c`
cont=`expr $cont_x - 1`
until [ "$cont" -le 0 ]
do
dig_ax1=`expr $num + 1`
dig="`echo $numero | cut -c $dig_ax1`"
resolve_numero_x
avanca
if [ "$texto" = "" ]; then
texto="$saida"
else
texto="$texto $saida"
fi
done
}
#-------------------------fim-----
func_unidade ()
{
case $dig in
"0" )
saida=""
if [ "$numero" -eq 0 ]; then
saida="zero"
fi
;;
"1" )
saida="um"
;;
"2" )
saida="dois"
;;
"3" )
saida="tres"
;;
"4" )
saida="quatro"
;;
"5" )
saida="cinco"
;;
"6" )
saida="seis"
;;
"7" )
saida="sete"
;;
"8" )
saida="oito"
;;
"9" )
saida="nove"
;;
esac
}
func_dez ()
{
dig_ax2=`expr $num + 2`
num_1="`echo $numero | cut -c $dig_ax2`"
case $dig in
"0" )
saida=""
;;
"1" )
func_dez1
;;
"2" )
saida="vinte"
func_dez2
;;
"3" )
saida="trinta"
func_dez2
;;
"4" )
saida="quarenta"
func_dez2
;;
"5" )
saida="cinquenta"
func_dez2
;;
"6" )
saida="sessenta"
func_dez2
;;
"7" )
saida="setenta"
func_dez2
;;
"8" )
saida="oitenta"
func_dez2
;;
"9" )
saida="noventa"
func_dez2
;;
esac
}
func_dez1 ()
{
case "$num_1" in
"0" )
saida="dez"
;;
"1" )
saida="onze"
;;
"2" )
saida="doze"
;;
"3" )
saida="treze"
;;
"4" )
saida="quatorze"
;;
"5" )
saida="quinze"
;;
"6" )
saida="dezesseis"
;;
"7" )
saida="dezessete"
;;
"8" )
saida="dezoito"
;;
"9" )
saida="dezenove"
;;
esac
avanca
}
func_dez2 ()
{
if [ "$num_1" = "0" ]; then
avanca
else
saida="$saida e"
fi
}
func_cem ()
{
dig_ax6=`expr $num + 1`
dig_ax3=`expr $num + 2`
dig_ax4=`expr $num + 3`
num_1="`echo $numero | cut -c $dig_ax3-$dig_ax4`"
num_1x="`echo $numero | cut -c $dig_ax6-$dig_ax4`"
cont1_x=`echo $numero | wc -c`
cont1=`expr $cont1_x - 1`
case $dig in
"0" )
saida=""
;;
"1" )
if [ "$num_1" = "00" ]; then
saida="cem"
else
saida="cento"
fi
;;
"2" )
saida="duzentos"
;;
"3" )
saida="trezentos"
;;
"4" )
saida="quatrocentos"
;;
"5" )
saida="quinhentos"
;;
"6" )
saida="seiscentos"
;;
"7" )
saida="setecentos"
;;
"8" )
saida="oitocentos"
;;
"9" )
saida="novecentos"
;;
esac
if [ "$num_1" = "00" ]; then
avanca
avanca
else
saida="$saida e"
fi
}
avanca ()
{
num=`expr $num + 1`
cont=`expr $cont - 1`
}
resolve_numero ()
{
case $cont in
"0" )
;;
"1" )
func_unidade
;;
"2" )
func_dez
;;
"3" )
func_cem
if [ "$num_1x" -gt "1" -a "$cont1" -gt "3" ]; then
saida="e $saida"
fi
;;
"4" )
func_unidade
if [ "$cont" = "4" -a "$dig" -gt 0 ]; then
saida="$saida mil"
fi
;;
"5" )
func_dez
if [ "$num_1" = "0" -a "$dig" -gt "0" ]; then
saida="$saida mil"
elif [ "$dig" = "1" ]; then
saida="$saida mil"
fi
;;
"6" )
func_cem
if [ "$num_1" = "00" -a "$dig" -gt "0" ]; then
saida="$saida mil"
fi
if [ "$num_1x" -gt "1" -a "$cont1" -gt "6" ]; then
saida="e $saida"
fi
;;
"7" )
func_unidade
if [ "$cont" = "7" -a "$dig" = 1 -a "$ml" != 1 ]; then
saida="$saida milhco"
else
saida="$saida milhoes"
fi
;;
"8" )
func_dez
if [ "$num_1" = "0" ]; then
saida="$saida milhoes"
elif [ "$dig" = "1" ]; then
saida="$saida milhoes"
fi
if [ "$dig" -gt "0" ]; then
ml=1
fi
;;
"9" )
func_cem
if [ "$num_1" = "00" ]; then
saida="$saida milhoes"
fi
if [ "$dig" -gt "0" ]; then
ml=1
fi
;;
* )
clear
echo "ERROR: Numero $numero excedeu o valor maximo do script (999.999.999)!"
exit 0
;;
esac
}
principal ()
{
cont_ax=`echo $numero | wc -c`
#echo "DEBUG: cont_ax"
#echo "DEBUG: $cont_ax"
cont=`expr $cont_ax - 1`
#echo "DEBUG: cont"
#echo "DEBUG: $cont"
until [ "$cont" -le 0 ]
do
#echo "DEBUG: num"
#echo "DEBUG: $num"
dig_ax=`expr $num + 1`
#echo "DEBUG: dig_ax"
#echo "DEBUG: $dig_ax"
dig="`echo $numero | cut -c $dig_ax`"
resolve_numero
avanca
if [ "$texto" = "" ]; then
texto="$saida"
else
texto="$texto $saida"
fi
done
}
#-------------------------fim-----
help ()
{
clear
echo "
User Commands literal(1)
`tput bold`NAME`tput sgr0`
literal - traduz numeros para sua representacao por extenso.
`tput bold`SYNOPSIS`tput sgr0`
literal [opcao][numero] [-f] [nome_do_arquivo]
`tput bold`DESCRIPTION`tput sgr0`
Converte numeros em sua representacao por extenso.
Valor limitado a 999999999.
`tput bold`OPTIONS`tput sgr0`
The following options are supported:
-p - numeros em portugues.
-e - numeros em ingles.
-v - imprime o numero entre parenteses apos a sua forma por extenso.
-f - define arquivo de entrada.
Examples:
literal -p 1000
literal -e 200
literal -pv 100
literal -p -f arquivo_entrada
literal -ev -f arquivo_entrada > arquivo_de_saida
`tput bold`ALERT`tput sgr0`
A conversco podera alterar a formatacao do arquivo.
`tput bold`VERSION`tput sgr0`
Version is 1.01
`tput bold`BUG REPORT`tput sgr0`
dmarp@ig.com.br
"
exit 0
}
le_arquivo ()
{
frase=""
cat $arquivo | sed 's/\*/#_asterisco_flag/'g | while read line
do
num=0
le2
echo "$frase" | sed 's/#_asterisco_flag/\*/'g
frase=""
done
}
le2 ()
{
for i in `echo $line | xargs -n 1`; do
expr $i / 1 2>>/dev/null 1>>/dev/null
if [ $? = 0 ]; then
numero="$i"
le_arquivo_1
# mudei
if [ "$opcao" = '-vp' ]; then
i="$numero ($texto)"
elif [ "$opcao" = '-pv' ]; then
i="$texto ($numero)"
elif [ "$opcao" = '-ve' ]; then
i="$numero ($texto)"
elif [ "$opcao" = '-ev' ]; then
i="$texto ($numero)"
else
i="$texto"
fi
texto=""
num=0
fi
if [ "$frase" = "" ]; then
frase="$i"
else
frase="$frase $i"
fi;
done
}
le_arquivo_1 ()
{
if [ "$opcao" = '-p' ]; then
principal
elif [ "$opcao" = '-e' ]; then
principal_x
elif [ "$opcao" = '-pv' ]; then
principal
elif [ "$opcao" = '-vp' ]; then
principal
elif [ "$opcao" = '-ev' ]; then
principal_x
elif [ "$opcao" = '-ve' ]; then
principal_x
else
help
exit 0
fi
}
num=0
cont_ax=0
dig_ax=0
dig_ax1=0
dig_ax2=0
dig_ax3=0
dig_ax4=0
dig_ax5=0
opcao=$1
numero="$2"
if [ "$2" = '-f' ]; then
arquivo="$3"
le_arquivo
elif [ "$1" = '-p' ]; then
principal
echo $texto
elif [ "$1" = '-e' ]; then
principal_x
echo $texto
elif [ "$1" = '-pv' ]; then
principal
echo "$texto ($numero)"
elif [ "$1" = '-vp' ]; then
principal
echo "$numero ($texto)"
elif [ "$1" = '-ev' ]; then
principal_x
echo "$texto ($numero)"
elif [ "$1" = '-ve' ]; then
principal_x
echo "$numero ($texto)"
else
help
exit 0
fi
Monitorando tentativas de conexões
mant - abra manpages em seu terminal
Corrigindo problema com Splash no Ubuntu
Instalando o REAPER no Ubuntu e Elementary OS
Instalação e Configuração do Void com Cinnamon
Porque Gentoo semi-binário atualmente (desabafo)
A combinação de WMs com compositores feitos por fora
Audacious, VLC e QMMP - que saudades do XMMS
SUNO OpenSource: Crie um servidor de gerador de música com IA
Guia de instalação do Gentoo Linux com Cinnamon (UEFI, LUKS2, Btrfs)
Aparecer o Chuck Norris no seu terminal
Da pra formatar um netbook MGB e usar algum linux nele? É possível usa... (2)
Alguns aplificativos em Flatpak não rodam no Debian (4)
CachyOS vs Arch [RESOLVIDO] (11)
Um filme, uma banda, um jogo, um livro, um anime (ou mangá) (13)









