バッテリーレベルを調べるスクリプト - しゃもしゃも日記どうも最近、バッテリーが50%あたりから5%あたりまで一気に減るので、 しばらく計ってみることにする。が、手頃なものが見つけられないので。 cygwinのperl 5.8.7で動作確認 #!/usr/bin/perl use strict; use Win32::API; if($ARGV[0] eq '--loop') { $| = 1; while(1) { get_battery_info(); sleep(60); } } else { get_battery_info(); } sub get_battery_info { my $getInfo = new Win32::API("kernel32", "GetSystemPowerStatus", 'P', ''); my $data = ' ' x 12; $getInfo->Call($data); my($ac, $bf
