$ echo " 201120 1 05-10-2011_16:47
201120 0 05-10-2011_16:48
201120 1 05-10-2011_16:49
201121 0 05-10-2011_15:47
201121 1 05-10-2011_15:48
201121 1 05-10-2011_15:49
201121 1 05-10-2011_15:50 " | perl -ane'$c{$F[0]}{T}++;$c{$F[0]}{C}+=$F[1]}{printf"%s %d %.1f%%\n",$_,$c{$_}{T},$c{$_}{C}/$c{$_}{T}*100 for sort keys%c'
201120 3 66.7%
201121 4 75.0%