Entries from 2012-06-19 to 1 day

電池の残りを通知する

use strict; use warnings; use AnyEvent; use AnyEvent::WebService::ImKayac; use Config::Pit; my $charging = `ioreg -l | grep "IsCharging"`; my $capacity = `ioreg -l | grep "Capacity"`; my ($max_capacity) = $capacity =~ /"MaxCapacity" = (\d+…