diff options
| author | Jesse Luehrs <doy@tozt.net> | 2018-12-26 09:00:00 -0800 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2018-12-26 09:00:00 -0800 |
| commit | a8db00d884c73201a347aea0612caaa0f23aec9e (patch) | |
| tree | e1fdf6aff84ae1f3b295150afda6b04f7c17d34f /bin/st-doy2 | |
| parent | 7d158fb6cbef594243bba79e5fe3337652588040 (diff) | |
| download | conf-a8db00d884c73201a347aea0612caaa0f23aec9e.tar.gz conf-a8db00d884c73201a347aea0612caaa0f23aec9e.zip | |
one more change for new work computer
Diffstat (limited to 'bin/st-doy2')
| -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; |