Skip to content

Instantly share code, notes, and snippets.

/gist:9135830

Created February 21, 2014 15:06
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/9135830 to your computer and use it in GitHub Desktop.
Save anonymous/9135830 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
#!/usr/bin/perl -w
$keybLevel=`ioreg -n "AppleBluetoothHIDKeyboard" | grep -i "batterypercent"`;
chomp ($keybLevel);
$keybLength=length ($keybLevel);
$keybLevel=substr($keybLevel,($keybLength-2),3);
print "<result>$keybLevel</result>";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment