8 |
use POSIX qw/strftime/; |
use POSIX qw/strftime/; |
9 |
use File::Slurp; |
use File::Slurp; |
10 |
use Time::HiRes; |
use Time::HiRes; |
11 |
use Data::Dump qw/dump/; |
eval "use Data::Dump qw/dump/;"; |
12 |
|
|
13 |
my $dt = 3; |
my $dt = 3; |
14 |
my $acpi_every = 10; |
my $acpi_every = 10; |
56 |
|
|
57 |
find_proc_acpi('battery', sub { |
find_proc_acpi('battery', sub { |
58 |
my $bat = shift; |
my $bat = shift; |
59 |
return unless $bat =~ /BAT/; |
return unless $bat =~ /\w+/; |
60 |
|
|
61 |
warn "# testing battery $bat\n" if ( $debug ); |
warn "# testing battery $bat\n" if ( $debug ); |
62 |
|
|
74 |
my @units = qw/b k M G/; |
my @units = qw/b k M G/; |
75 |
my $o = 0; |
my $o = 0; |
76 |
|
|
77 |
while ( ( $v / 1024 ) >= 1 ) { |
while ( ( $v / 10000 ) >= 1 ) { |
78 |
$o++; |
$o++; |
79 |
$v /= 1024; |
$v /= 1024; |
80 |
} |
} |