10/06/23 21:20:11
こちらがperlのプログラムです
#! c:/perl/bin/perl
open(FILE,"IPsource.txt"); #ファイル読み込み
use strict;
use warnings;
use utf8;
print "Content-type: text/html\n\n";
my $count;
my $t;
my $key;
my $ref_freq;
my %ref_freq;
my @x;
my $v;
$count = 0; #全体IPカウント
while ($t = <FILE>){ #IPファイル展開
#IP集計
if($t) {
$count += 1; #全体IPカウント
++$ref_freq{$t};
}
}