bayashi · August 21, 2015 06:29
diff --git a/gistfile1.txt b/gistfile1.txt
 $ perl -MLWP::Simple=get -we 'my %r=(a=>1000, b=>100, c=>120, d=>288, e=>288); for my $room (sort keys %r){ my ($count) = (get("http://api.conbu.net/v1/associations/track_$room") =~ m!:(\d+)!); printf("track".uc($room).": %.2f%%\t%04d/%04d\n", $count/$r{$room}*100, $count, $r{$room}); }'
 trackA: 44.60%  0446/1000
 trackB: 136.00% 0136/0100
 trackC: 66.67%  0080/0120
 trackD: 75.35%  0217/0288
 trackE: 68.40%  0197/0288
	$ perl -MLWP::Simple=get -we 'my %r=(a=>1000, b=>100, c=>120, d=>288, e=>288); for my $room (sort keys %r){ my ($count) = (get("http://api.conbu.net/v1/associations/track_$room") =~ m!:(\d+)!); printf("track".uc($room).": %.2f%%\t%04d/%04d\n", $count/$r{$room}*100, $count, $r{$room}); }'
	trackA: 44.60% 0446/1000
	trackB: 136.00% 0136/0100
	trackC: 66.67% 0080/0120
	trackD: 75.35% 0217/0288
	trackE: 68.40% 0197/0288