検索するプログラミング

質問

社内でIPアドレスの管理をしているのですが、使っていないIPアドレスを
ログから検索したいのですが、プログラムを書くのが苦手なためよろしければ教えてください。ログは以下のようにとっています

MACアドレス cc 00000034 001 03 E Y 0274 R 2 N IPアドレス Sat Jul 20 17:11:53 2002

ここから3ヶ月間ログに表示されていないIPアドレスを調べて、使っていない
IPアドレスを特定したいと思っています。

回答No.2

leaz024 · ベストアンサー

補足を読みました。多分こんな感じでよいかと思います。

# 未使用IPチェックスクリプト
use Time::Local;

my $ptnDate = '(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)';　# ※Ａ
my %chkIP;

# 使用されているIPを拾う
my @files = glob("ログディレクトリのパス/*.log");
while (@files) {
　　next unless /$ptnDate\.log$/;
　　my $tm = timelocal($6,$5,$4,$3,$2-1,$1-1900);　　# ※Ａ
　　next if $tm < time() - 90*24*60*60;　　　　　　　# 90日より前なら見ない

　　open LOG, "$_" or die $!;
　　while (<LOG>) {
　　　　my $ip = (split /\x20/)[11];　　　# \x20 はスペースのコード
　　　　$chkIP{$ip} = 1;　　　　　　　　　# 見つけたIPをチェック
　　}
　　close LOG;
}

# 未使用のIPを探す
my %notUsed;
open HOSTS, "HOSTSファイルのパス" or die $!;
while (<HOSTS>) {
　　next unless /^(\d+\.\d+\.\d+\.\d+)/;　　# ※Ｂ
　　$notUsed{$1} = 1 unless $chkIP{$1};
}
close HOSTS;

# 未使用のIPを出力する
open OUT, ">not_used_ip.log" or die $!;
print OUT "$_\n" for sort keys %notUsed;
close OUT;

※Ａ．日時.log の「日時」のフォーマットにより変わります。分からなければ、日時部分の詳細をお知らせください。
※Ｂ．HOSTSファイル内のIPって、１行１つで行頭に書いてあります？

補足

回答ありがとうございます。ログの形式は以下のように一日4回とっています。
020711-10.log 020711-12.log 020711-15.log 020711-17.log

HOSTSファイルのIPは一行一つで行頭に書いてあります。

よろしくお願いいたします。

回答No.3

leaz024

すみません、遅くなりました。

> 020711-10.log 020711-12.log 020711-15.log 020711-17.log
については、※Ａの部分を次のようにして下さい。

my $ptnDate = '(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)';
　　　　↓
my $ptnDate = '(\d\d)(\d\d)(\d\d)\-(\d\d)';

　　my $tm = timelocal($6,$5,$4,$3,$2-1,$1-1900);
　　　　↓
　　my $tm = timelocal(0,0,$4,$3,$2-1,$1+100);

> HOSTSファイルのIPは一行一つで行頭に書いてあります。
ということですので、※Ｂの部分はそのままでＯＫです。

回答No.1

leaz024

まず、ログから発見したIPをチェックするのに、ハッシュ変数を１つ用意しましょう。
IPをキーにして、値は適当に１でも入れることにします。

while を使ってログを１行ずつ読み込みます。
ログデータは半角空白区切りなので split関数で空白区切りに分割し、IPは（０から数えて）11番目なので、11番目のデータを取り出します。
取り出したIPをハッシュのキーにして、値に１をセットします。
これをファイルの終わりまで（while が終了するまで）繰り返します。

「keys ハッシュ変数」とすると使用されたIPの一覧が得られますので、IPの全集合からこれを引けば、使われていないIPが求まる、という感じです。

プログラムが苦手とのことなので、上記だけでは少し難しいでしょう。
下記の内容もお知らせ頂ければ、もう少し具体的に書けると思います。
・ログは１つなのか複数なのか。
・また複数ならどのような命名規則になっているのか。
・IPの全集合はどのようになっているのか。

必要であれば補足ください。

補足

>・ログは１つなのか複数なのか
ログは複数あります。一日に4回とるように設定しています

>・また複数ならどのような命名規則になっているのか。
日時.logという形式です

>IPの全集合はどのようになっているのか.
サーバのHOSTSファイルに全て記述してあります

よろしくお願いいたします。