From c9ffddb4390afd11e22dfc0ed57eda5f7b8311e7 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Mon, 6 May 2013 17:18:39 +0100
Subject: get values

---
 battery.pl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 battery.pl

diff --git a/battery.pl b/battery.pl
new file mode 100644
index 0000000..e14fe80
--- /dev/null
+++ b/battery.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use 5.016;
+
+sub get_battery_stats {
+    open my $fh,'<','/sys/class/power_supply/BAT1/uevent';
+    my %ret;
+    while (my $line=<$fh>) {
+        chomp $line;
+        my ($name,$value) = $line =~ m{\A POWER_SUPPLY_(.*?) = (.*) \z}x;
+        $ret{lc($name)}=$value;
+    }
+    return \%ret;
+}
+
+my $bs=get_battery_stats;
+printf "Energy: %.2f%%\n",100*$bs->{energy_now}/$bs->{energy_full};
+printf "Time: %.2f / %.2f\n",$bs->{energy_now}/$bs->{power_now},
+    $bs->{energy_full}/$bs->{power_now};
-- 
cgit v1.2.3