Checking Laptop battery info

This is a simple piece of Perl I wrote to see what percentage my laptop battery was. The die needs to be more descriptive and I also need to take out the hardcoded values for a full battery, but it gets the job done faster than cat and scanning.

#!/usr/bin/perl
use warnings;
use strict;
use diagnostics;
my $status;
open (BATT, "/proc/acpi/battery/BAT0/state") || die("Can't Open: $!");
while (<BATT>) {
  if ($_ =~ /(charging state:)(\s+)(\w+)/ ) {
    $status = $3;
    }
  if ($_ =~ /(:)(\s+)(\d*)(\s+)(mAh)/ ) {
     print "\n";
     my $perc = $3/2791;
     printf "The battery is %s", $status;
     print "\n";
     printf "Battery percentage is: %.0f", $perc*100;
     print "\n-----------------------------\n\n";
     } else {
     print "Incorrect Format";
     }
  }
close BATT;
[download]

Comment on Checking Laptop battery info Download Code

Replies are listed 'Best First'.
Re: Checking Laptop battery info by stonecolddevin (Parson) on Jul 09, 2006 at 09:17 UTC
what would it take for something like this to be done for windows/mac? meh.	[reply]
Re^2: Checking Laptop battery info by planetscape (Chancellor) on Jul 09, 2006 at 22:14 UTC
The disappointingly named Batteries and Power Supplies (Perl Scripts) section of the Microsoft Script Center Script Repository only contains one script to List UPS Information, but it might be enough to get you started on a Win32 implementation. HTH, planetscape	[reply]
Re^3: Checking Laptop battery info by swampyankee (Parson) on Jul 10, 2006 at 21:12 UTC
Micro$oft does have VBS code, which can serve as a starting point. After all, translating from VBS to Perl should be easy &foolish_grin; Microsoft scripting center emc e^(π√−1) = −1	[reply]
Re^2: Checking Laptop battery info by !1 (Hermit) on Jul 10, 2006 at 02:46 UTC
For win you could do something like this: `#!/usr/bin/perl -l use Win32::OLE('in'); my $objWMIService = Win32::OLE->GetObject("winmgmts:\\\\.\\root\\cimv2 +") or die "WMI connection failed.\n"; $colItems = $objWMIService->ExecQuery("Select * from Win32_Battery","W +QL",0x30); print "$_->{DeviceID} ($_->{Description}): $_->{EstimatedChargeRemaini +ng}%" for in $colItems;` [download] Of course, I get percentages greater than 100% when I'm plugged in so it isn't completely ideal. =/	[reply] [d/l]
Re^3: Checking Laptop battery info by stonecolddevin (Parson) on Jul 10, 2006 at 20:59 UTC
well it's most certainly a start. if nothing else i can be like, "hey dad, check this out" :-) might even be able to play around with it and see what the problem is with the percentages... meh.	[reply]
Re^4: Checking Laptop battery info by Anonymous Monk on Dec 07, 2007 at 16:08 UTC

Back to Cool Uses for Perl