検索するプログラム

質問

以前も同じ内容で質問させて頂いたのですが、うまくいきません。
原因はHOSTSファイルにかかれているIPアドレスの表示が
XXX.XXX.1.1　となっているのですが、ログのほうは
XXX.XXX.001.001となっているのでこれが原因だと思われます。
よろしくお願いいたします。

ここから以前の質問

社内でIPアドレスの管理をしているのですが、使っていないIPアドレスを
ログから検索したいのです.IPアドレスはログの11番目のフィールドに書かれて
おりIPの全集合はサーバのHOSTSファイルに全て記述してあります

そのとき回答されたプログラム

#!/usr/local/bin/perl
# 未使用IPチェックスクリプト
use Time::Local;

my $ptnDate = '(\d\d)(\d\d)(\d\d)\-(\d\d)';　
my %chkIP;

# 使用されているIPを拾う
my @files = glob("ログのパス");
while (@files) {
　　next unless /$ptnDate\.log$/;
　　my $tm = timelocal(0,0,$4,$3,$2-1,$1+100);
　　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;

回答No.1

osamuy · ベストアンサー

例えば、こんなふうにするとか。

use Time::Local;
＞ use Socket;

my $ptnDate = '(\d\d)(\d\d)(\d\d)\-(\d\d)';　
my %chkIP;

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

　　open LOG, "$_" or die $!;
　　while (<LOG>) {
　　　　my $ip = (split /\x20/)[11];　　　# \x20 はスペースのコード
＞　　　$ip = unpack( "H*", inet_ntoa( $ip ) );

　　　　$chkIP{$ip} = 1;　　　　　　　　　# 見つけたIPをチェック
　　}
　　close LOG;
}

# 未使用のIPを探す
my %notUsed;
open HOSTS, "HOSTSのパス" or die $!;
while (<HOSTS>) {
　　next unless /^(\d+\.\d+\.\d+\.\d+)/;　　
＞　my $ip = unpack( "H*", inet_ntoa( $1 ) );

＞　$notUsed{$1} = 1 unless $chkIP{$ip};
}
close HOSTS;

IPv4しか考えてませんが。

補足

ご回答ありがとうございます。
上記のスクリプトでためしてみたのですが
うまくいきません。
他に原因はあるでしょうか？

回答No.2

osamuy

＞ 上記のスクリプトでためしてみたのですがうまくいきません。

ありゃ。typoしてました。

誤： inet_ntoa
正： inet_aton

基本的に、比較が正しく行われるよう、データを正規化してあげましょう。
先にあげたスクリプトでは、Socket::inet_aton()を使って、ドット形式を、４バイト・データ（にしたものをunpckして１６針文字列）に直すというアプローチだったんだけど。
こんなふうに：

％　perl -MSocket -e 'print unpack("H*", inet_aton("10.255.128.1"))'
0aff8001

補足

ありがとうございます。
すみませんpealはほとんど初心者なもので。
上記の
誤： inet_ntoa
正： inet_aton
を直すだけでよろしいのでしょうか？
よろしくお願いいたします。