#!/usr/bin/perl


my $charge = 0;
my $full = 0;
my $amperage = 0;
my $voltage = 0;
my $cycles = 0;
my $max = 6900;


@powerinfo = `system_profiler SPPowerDataType`;

foreach $item (@powerinfo) {
	if ($item =~ /apacity/) {
		@temp = split(/:/, $item);
		$temp[1] =~ s/\n//g;
		$temp[1] =~ s/\r//;
		$temp[1] =~ s/ //gi;
		$full = $temp[1];
	}

	if ($item =~ /Remaining/) {
		@temp = split(/:/, $item);
		$temp[1] =~ s/\n//g;
		$temp[1] =~ s/\r//;
		$temp[1] =~ s/ //gi;
		$charge = $temp[1];
	}

	if ($item =~ /Amperage/) {
		@temp = split(/:/, $item);
		$temp[1] =~ s/\n//g;
		$temp[1] =~ s/\r//;
		$temp[1] =~ s/ //gi;
		$amperage = $temp[1];
	}

	if ($item =~ /Voltage/) {
		@temp = split(/:/, $item);
		$temp[1] =~ s/\n//g;
		$temp[1] =~ s/\r//;
		$temp[1] =~ s/ //gi;
		$voltage = $temp[1];
	}

	if ($item =~ /Cycle/) {
		@temp = split(/:/, $item);
		$temp[1] =~ s/\n//g;
		$temp[1] =~ s/\r//;
		$temp[1] =~ s/ //gi;
		$cycles = $temp[1];
	}
}

print "$charge/$full mAh | $amperage mA | $voltage mV | $cycles cy | C: ";

if ($amperage < 0) {
	$chargetime = $charge / $amperage * -1 * 60;
} else {
	$chargetime = ($full - $charge) / $amperage * 60;
}

print int(($charge/$full)*100) . "%" . " | H: " . int(($full/$max)*100) . "% | ". int($chargetime) . " min". "\n\n";