Saiba quanto de energia seu PC gasta aproximadamente por mês [Perl]

Saiba quanto de energia seu PC gasta aproximadamente por mês

Publicado por Perfil removido (última atualização em 18/12/2013)

[ Hits: 5.598 ]

Download conta.pl

0 0

Denuncie Favoritos Indicar

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

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";