Jump to content


Photo

Trabalhando Com $$$ No Perl


  • Faça o login para participar
6 replies to this topic

#1 Hospedar-se .Com

Hospedar-se .Com

    Super Veterano

  • Usuários
  • 1500 posts
  • Sexo:Masculino
  • Localidade:São Paulo - SP

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 ... :blink: )

$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)

#2 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 13/03/2006, 13:06

Esse codigo torna todas as linhas acima meio inuteis ehhe
$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 Hospedar-se .Com

Hospedar-se .Com

    Super Veterano

  • Usuários
  • 1500 posts
  • Sexo:Masculino
  • Localidade:São Paulo - SP

Posted 26/03/2006, 22:07

há várias outras maneiras, cada um usa a que entender melhor

#4 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

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

#5 Miguceamma

Miguceamma

    MiguPenjisse

  • Usuários
  • 11724 posts

Posted 24/09/2017, 08:30

Can Amoxicillin Cause Loss Of Appetite cialis Propecia Eficiencia Keflex Instructions Efficacy Re Strep

#6 HaroNism

HaroNism

    Super Veterano

  • Usuários
  • 13822 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

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

#7 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

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)

IPB Skin By Virteq