Trabalhando Com $$$ No Perl
Started By Hospedar-se .Com, 12/03/2006, 15:47
6 replies to this topic
#1
Posted 12/03/2006, 15:47
HEHE só pra estrear a seção (já que ninguem quis).
Somando valores quebrados com mais precisão:
Ex.: 1.95 + 13.00 = "14" (se fizer essa conta no perl ele vai falar que é esse o resultado ... )
$total =~ s/\.//ig; # Converte para Nº inteiro (1.90 = 190)
$somacerta=$somacerta+$total; # Aqui pode-se usar no meio do while, for, do ... (soma de vários valores)
$somacerta=$somacerta/100; # Converte para decimal (190 / 100 = 1.9)
Depois é só formatar como no exemplo abaixo
Formatando um resultado:
Ex.: TOTAL = 10.5 para R$ 10,50
if($total =~ /\./){ # Se o total contiver "."
___($reais,$centavos) = split(/\./, $total); # Cria o formato
___if($centavos <= "9"){ $total="$reais,$centavos 0"; $total =~ s/ //ig; } # Se o centavo possuir 1 casa adiciona o 0 no final
___else{ $total =~ s/\./\,/ig; } # Senão troca o "." por ","
}
elsif($total !~ /\./){ $total="$total,00"; } # Se for um Nº inteiro, adiciona o ,00
($reais,$centavos) = split(/\,/, $total); # Verifica e arruma os erros da anterior
$centavos = substr($centavos,0,2); # Se vier quebrado fica só com 2 casas
$total="$reais,$centavos"; # Guarda de volta na variável
OBS.: "_" = Espaçamento ou alinhamento (pra facilitar o entendimento do código e não ficar muito bagunçado e fácil de se achar nas funções)
Somando valores quebrados com mais precisão:
Ex.: 1.95 + 13.00 = "14" (se fizer essa conta no perl ele vai falar que é esse o resultado ... )
$total =~ s/\.//ig; # Converte para Nº inteiro (1.90 = 190)
$somacerta=$somacerta+$total; # Aqui pode-se usar no meio do while, for, do ... (soma de vários valores)
$somacerta=$somacerta/100; # Converte para decimal (190 / 100 = 1.9)
Depois é só formatar como no exemplo abaixo
Formatando um resultado:
Ex.: TOTAL = 10.5 para R$ 10,50
if($total =~ /\./){ # Se o total contiver "."
___($reais,$centavos) = split(/\./, $total); # Cria o formato
___if($centavos <= "9"){ $total="$reais,$centavos 0"; $total =~ s/ //ig; } # Se o centavo possuir 1 casa adiciona o 0 no final
___else{ $total =~ s/\./\,/ig; } # Senão troca o "." por ","
}
elsif($total !~ /\./){ $total="$total,00"; } # Se for um Nº inteiro, adiciona o ,00
($reais,$centavos) = split(/\,/, $total); # Verifica e arruma os erros da anterior
$centavos = substr($centavos,0,2); # Se vier quebrado fica só com 2 casas
$total="$reais,$centavos"; # Guarda de volta na variável
OBS.: "_" = Espaçamento ou alinhamento (pra facilitar o entendimento do código e não ficar muito bagunçado e fácil de se achar nas funções)
Hospedar-se .Com - Monitor Webfórum - Equipe de Gerenciamento de Servidores
Hospedagem de Sites // Revenda de Hospedagem // Streaming & Web Rádio // Domínios // Vps
Hospedagem Ilimitada -> R$ 15,00 ao Mês + 30 Dias Grátis
Outros Sites: Jogos Loucos em Flash | Divulgue seu site Gratis | Web Masters Dicas & Tutoriais
Hospedagem de Sites // Revenda de Hospedagem // Streaming & Web Rádio // Domínios // Vps
Hospedagem Ilimitada -> R$ 15,00 ao Mês + 30 Dias Grátis
Outros Sites: Jogos Loucos em Flash | Divulgue seu site Gratis | Web Masters Dicas & Tutoriais
#2
Posted 13/03/2006, 13:06
Esse codigo torna todas as linhas acima meio inuteis ehhe
$total = sprintf("%.2f",($total + $preco));
$total = sprintf("%.2f",($total + $preco));
print join'',(reverse map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;
E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.
#3
Posted 26/03/2006, 22:07
há várias outras maneiras, cada um usa a que entender melhor
Hospedar-se .Com - Monitor Webfórum - Equipe de Gerenciamento de Servidores
Hospedagem de Sites // Revenda de Hospedagem // Streaming & Web Rádio // Domínios // Vps
Hospedagem Ilimitada -> R$ 15,00 ao Mês + 30 Dias Grátis
Outros Sites: Jogos Loucos em Flash | Divulgue seu site Gratis | Web Masters Dicas & Tutoriais
Hospedagem de Sites // Revenda de Hospedagem // Streaming & Web Rádio // Domínios // Vps
Hospedagem Ilimitada -> R$ 15,00 ao Mês + 30 Dias Grátis
Outros Sites: Jogos Loucos em Flash | Divulgue seu site Gratis | Web Masters Dicas & Tutoriais
#4
Posted 17/09/2017, 15:49
Amoxicillin 250mg In Pregnancy online pharmacy Cialis 10 Mg Dosage
Retiro De Propecia
Kamagra Sublinguale online pharmacy Amoxicillin Iv
Retiro De Propecia
Kamagra Sublinguale online pharmacy Amoxicillin Iv
#6
Posted 25/10/2017, 02:25
Generic Cipro Overnight Delivery online pharmacy Brand Name Propecia Real isotretinoin drugs shipped ups
Viagra Funciona Si Drug viagra Secure Site For Viagra 100 Mg Priligy 60 Mg Tablets
Propecia Equidad Cialis Andorra Online 24 Hr Canadian Pharcemy viagra Nexium Online Pharmacy Canada
Viagra Funciona Si Drug viagra Secure Site For Viagra 100 Mg Priligy 60 Mg Tablets
Propecia Equidad Cialis Andorra Online 24 Hr Canadian Pharcemy viagra Nexium Online Pharmacy Canada
#7
Posted 12/11/2017, 23:22
Lowest Cost Cialis Can You Buy Viagra Online Viagra Prix En Pharmacie Belgique cheapest generic levitra Best Brand Viagra Clomid Louer Priligy En Valencia
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)