diff options
Diffstat (limited to 'bin/st-doy2/power-usage')
-rwxr-xr-x | bin/st-doy2/power-usage | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/bin/st-doy2/power-usage b/bin/st-doy2/power-usage deleted file mode 100755 index 46d61db..0000000 --- a/bin/st-doy2/power-usage +++ /dev/null @@ -1,10 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use 5.010; - -my $power_data = `system_profiler SPPowerDataType`; -my ($volts) = $power_data =~ /Voltage.*: (.*)/; -my ($amps) = $power_data =~ /Amperage.*: (.*)/; - -printf "%0.2f\n", $volts * $amps / 1000000; |