![]() |
|
Problems? Is your data what you think it is? | |
PerlMonks |
Checking Laptop battery infoby /dev/trash (Curate) |
on Jul 09, 2006 at 03:07 UTC ( #559977=snippet: print w/replies, xml ) | Need Help?? |
#!/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;
|
|