ApacheログからアクセスのあったIPのみを取り出し、カウントしてソートする。

ApacheログからアクセスのあったIPのみを取り出し、カウントしてソートする。

apacheログからIPのみを抜きだす。

> cat apache.log | awk '{print $1;}' > iplist.txt

iplist内の重複を含むIPをカウントする。

>vi count.pl

%count = () ;
while( chomp( $_ = <> ) )
{
        $count{ $_ } ++ ;
}

foreach ( sort( keys( %count ),  ) )
{
        printf ( "%04d:$_\n", $count{ $_} ) ;
}

実行する。

perl a.pl iplist.txt | sort > sort.txt