自作IPドメインサーチ

いつもログを見て気になるIPアドレスをIPドメインSEARCHで調べているが，
1日に同じホストから5回しかつかえないのがキツイ。
そこで最近知ったPerl関数のgethostbyaddrを使って自分のHPから調べれるようにしてみた。
適当に作ったので穴だらけだと思うけどとりあえず自分しか使わないと思うのでいいか・・・

gethostbyaddr関数 ホスト名文字列（スカラー変数）= gethostbyaddr(４バイト長にパックされたアドレス, アドレスタイプ 2 固定); また、「４バイト長にパックされたアドレス」をもとめるために、ＩＰアドレスは 172.17.50.140 のようになっていますので、まず、splitでＩＰアドレスを . デリミタにてリスト（配列）にして pack の第二引数に渡します。 これを packは "C4"（char型４個） つまり「４バイト長にパックされたアドレス」にします。

だそうです。とてもわかりやすく説明されていて助かります。