FW: mais uma de awk ( Formatar numeros )

[MrBiTs]

 Mais uma contribuição do nosso amigo moderado Miranda:

[miranda@guitar tmp]$ cat valores
00000001534
00000025682
00000000150
00004152358
00000000023
12345678901
[miranda@guitar tmp]$ cat cmd.awk
{TAM=length($0);
DEC=substr($0,TAM-1);
INT=substr($0,0,TAM-2);
printf"R$%d,%s\n",INT,DEC;}
[miranda@guitar tmp]$ awk -f cmd.awk valores
R$15,34
R$256,82
R$1,50
R$41523,58
R$0,23
R$123456789,01