Consulte os valores da tarifa da sua região e altere no code. :)

• Download conta.pl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl

# O VALOR DA TARIFA DE ENERGIA VARIA DE CIDADE A ESTADOS E REGIÕES...
# NORMALMENTE O CONSUMO ACIMA DE 100 kWh custa de 40 a 50 CENTAVOS por kWh

#       FONTE:   ANEEL - Agência Nacional de Energia Elétrica.

# http://www.aneel.gov.br/arquivos/PDF/17-05_materia1_3.pdf

# Potência do aparelho em Watts/1000 x horas de funcionamento x mês (30 dias)
# um computador + monitor gasta cerca de 120 a 150 Watts no caso 120W/1000 = 0,12 kWh
# Com monitor desligado, ECONOMIA de 0,08 kWh

#Micro (CPU - Unidade Central) - 40 a 60 W
#Monitor - 80 a 90 W
#Impressora - 70 a 80 W
#Scanner - 50 

#CPU + vídeo (s/ impressora) - 120 a 150 W
#Consumo CPU + Vídeo + Impressora = 0,19 a 0,23 kWh.
#Consumo CPU/vídeo (hora) = 0,12 a 0,15


my @tempo=("uptime");
print "Tempo de funcionamento, (hora:minutos):";system("@tempo | cut -f1 -d ',' | cut -f2 -d 'p'");
print "Informe a quantidade de horas: ";
my $horas = <STDIN>;
print "\n";
$dia = (0.12) *$horas;
print "Você consumiu hoje aproximadamente $dia kWh/dia\n";
$mes = ($dia*30);
print "Neste ritimo irá consumir aproximadamente $mes kWh/mês\n";
print "\n";
$RSmes = ($mes*0.50); # DEFINIDO 0,50 CENTAVOS POR kWh (consulte sua operadora de energia)
print "Previsão em R\$ para o mês: $RSmes R\$ \n";
print "\n";

Lista de números aleatórios não-repetidos de um intervalo em Perl

Programa que separa os dígitos de um inteiro

Cálculo do MDC em Perl para quantidade ilimitada de parâmetros

Obtendo horas do sistema

Cálculo do MDC em Perl

Nenhum comentário foi encontrado.