概要

  • IPアドレスからホスト名を逆引きする。
  • IPv6 対応。

ソース

  • filegetHostName.zip
    すべてを展開すべてを収束
      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12
     13
     14
     15
     16
     17
     18
     19
     20
     21
     22
     23
     24
     25
     26
     27
     28
     29
     30
     31
     32
     33
     34
    
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
    -
    |
    |
    |
    |
    -
    -
    |
    -
    |
    |
    !
    !
    !
    |
    |
    !
     
     
    
    #!/usr/bin/perl
    # ホスト名逆引き(IPv6にも対応)
    # http://www.alib.jp/perl/resolv.html
     
    use strict;
    use warnings;
    use utf8;
    use Encode;
    use Net::DNS::Resolver;
     
    my $ip = $ARGV[0] || '';
    my $name = getHostName( $ip );
    print "IP:\t${ip}\nHost:\t${name}\n";
     
    sub getHostName
    {
        my $ip_address = shift || '';
        my $ret = '';
     
        my $resolver = Net::DNS::Resolver->new;
        if ( my $ans = $resolver->query( $ip_address ) ){
            for my $rr ( $ans->answer ){
                #print $rr->string, "\n";
                if ( $rr->type eq 'PTR' ){
                    $ret = $rr->ptrdname;
                    last;
                }
            }
        }
     
        return $ret;
    }
     
    # EOF
    

添付ファイル: filegetHostName.zip 250件 [詳細]

リロード   新規 下位ページ作成 編集 凍結 差分 添付 コピー 名前変更   ホーム 一覧 検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: Wed, 27 Feb 2013 09:09:37 JST (1968d)