diff options
Diffstat (limited to 'bin/st-doy2/power-usage')
-rwxr-xr-x | bin/st-doy2/power-usage | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/bin/st-doy2/power-usage b/bin/st-doy2/power-usage new file mode 100755 index 0000000..46d61db --- /dev/null +++ b/bin/st-doy2/power-usage @@ -0,0 +1,10 @@ +#!/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; |