10/06/23 21:32:30
プログラムの動きですが
>>179でtxtに入れられたIPアドレスの種類と数をカウントします
ここでハッシュ(連想配列)を用いています
ここを出力するとこのようになります
IP 数
202.・・・ 20
そして>>180でエントロピー計算を行います
エントロピーの計算方法はlog(対数)とΣ（for文）で
my $y=$count;
my $num;
my @pi = map $_ / $y, @x;
この部分に先ほどカウントしたIPが入り
for($i=0;$i<=$#pi;$i++){ ←カウントしたIP分だけループさせ
$num += -($pi[$i]*log($pi[$i]) / log(2)); ←エントロピーの計算をします
}