blob: 46d61dbd99ba188b537360868d9d812675365634 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
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;
|
