IPを検索するプログラム

質問

以前違うカテゴリで教えていただいていたのですが、
未だにどうしてもうまくいくことができません。
文字に制限がありますので下記URLを参照して頂いて
原因がわかれば教えていただけないでしょうか？
どうかよろしくお願い致します。
わからないところがあればその都度補足させていただきます。

http://oshiete1.goo.ne.jp/kotaeru.php3?q=326865
http://oshiete1.goo.ne.jp/kotaeru.php3?q=361024

回答No.2

osamuy · ベストアンサー

＞ opendir (DIR, "logのパス");
＞ my @files = (grep !/^\.\.?$/, readdir(DIR));
＞ closedir DIR;

このコードなら、「not_used_ip.log」も、@filesに含まれますね。
最初（#326865）の、leaz024さんのコードでは、ちゃんと考えられてますから、そちらを参考にされては。

補足

何度もすみません。

glob()が意図どおりに動いていないような気がします。
ずっとスクリプトが実行している状態でループがずっと
発生しているのでしょうか？

回答No.1

osamuy

何をどうやって、どのような結果を得て、それがどのようにうまくないかを、詳しく書かないと、回答がつきにくいのではないかと。

#361024では、ダメでしたか。無念。

補足

どうもgrobのところでおかしかったみたいで、gorbの所を
以下のように変えるとnot_used_ip.logというファイルが
作成された(前までは作成されませんでした)のですが、結果を
みるとログにあがっているものもそのファイルに入っていました。
たぶん、ログをまとめたものとHOSTSのものとが正しく比較されていない、
もしくは引けていないと思われます。

my @files = glob("logのパス");

opendir (DIR, "logのパス");
my @files = (grep !/^\.\.?$/, readdir(DIR));
closedir DIR;

説明不足ですみません