X-SEO > 技術メモ > Perl > 変換 > IPアドレス -> ホスト名

Perl

IPアドレス -> ホスト名

#===========================================================================*
# プログラム名  : IPアドレス -> ホスト名                                    *
# プログラムID  : HostByAddr                                                *
# 使用例        : &HostByAddr($ENV{'REMOTE_ADDR'});                         *
#---------------------------------------------------------------------------*
# 入力引数[0]   : IPアドレス                                                *
#---------------------------------------------------------------------------*
# 出力引数[0]   : ホスト名                                                  *
#===========================================================================*
sub HostByAddr {
    #-------------------------------*
    # 変数宣言                      *
    #-------------------------------*
    my($RtnValue)   = $_[0];        # 戻り値用変数
    #-------------------------------*
    # 処理                          *
    #-------------------------------*
    return gethostbyaddr(pack("C4", split(/\./, $RtnValue)), 2);
}