数値のビット列から1or0の個数を調べる方法として今まで $n = unpack("B8", $b); $m = $n =~ s/0/0/g; を使っていたけど、遅い。とにかく遅い。 1Gbit分を評価したら200sec以上かかる。 Twitterで聞いたら下記のURLを教えてもらった。 さすがTwitter最強です…