I needed a simple script to parse out the Battery Percentage from system call acpi for my conky display on my desktop. Keep it simple. :)
MODIFIED CODE:
*I left out the word 'Battery' intentionally because it is displayed in my conky by default and with another color. The script does what is supposed to do only, get the Percentage and return that only.
#!/usr/bin/perl

print '',( `acpi` =~ /(\d+)%/ )[ 0 ] // '??', "%";

[download]
ORIGINAL CODE - Doesn't include last 0 for 100%. Thanks to jwkrahn for the simpler and more precise code ^^ above 
#!/usr/bin/perl
#battery.pl

use strict;
use warnings;
use 5.012;

my $battery_charge;

$battery_charge = `acpi`;

if($battery_charge =~ /\d{2}%/ )
{

        print "Battery: $&\n";
}

[download]
Silence is golden, but Duct Tape is silver x)

In reply to Laptop Battery Percentage by naildownx

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.