ソートして、カウントして。

 DF F7 8F 89 6D F3 45 1F 73 BE 86 40 E0 3F EA 7F FD 82 88 E2 16 65 C7 D0 13 D7 BC EE 58 EF F3 1F FF EA 99 ...

こんな感じのデータの、0~Fの個数を調べる。

perl -ne 'for(split){print"$1\n$2\n" if/(.)(.)/}' 001.txt > 001.s
sort 001.s > a.txt

って感じに、ソートして並べてみた。

カウント方法が一行で書けなかったので

open(FH,"<a.txt");

@list = <FH>;

$i = 0;
$j = 0;
$sum=0;

foreach $data_line(@list){
if($i == hex($data_line)){
 $j++;
}else{
 print"$i $j\n";
 $i++;$j=1;
}
$sum++;
}
print"$i $j\n";
print"$sum\n";

と、だらだらと書いた。
やる気が感じられないが、動けばどうでもいいや。

---

存在しない時のことを考えてなくて涙目。