HostToIP

概要

  • ホスト名からIPアドレスを求め、IPアドレスからホスト名を逆引きする。

ソース

  • fileHostToIP.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
    
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
    
    #!/usr/bin/perl
    # HostToIP.pl
    # ホスト名からIPアドレスを求める。(IPv4)
    # さらにIPアドレスからホスト名を逆引きする。
     
    use strict;
    use warnings;
    use utf8;
    use Encode;
    use Socket;
     
    my $charsetConsole    = 'CP932';
    #my $charsetConsole	= 'UTF-8';
    my $charsetFile        = 'UTF-8';
     
    binmode( STDIN,  ":encoding($charsetConsole)" );
    binmode( STDOUT, ":encoding($charsetConsole)" );
    binmode( STDERR, ":encoding($charsetConsole)" );
     
    @ARGV = map{ decode( $charsetConsole, $_ ); } @ARGV;
     
    my $host1 = $ARGV[0] || 'localhost';
    my $ipn = inet_aton( $host1 );
    my $ipa = inet_ntoa( $ipn );
    my $host2 = gethostbyaddr( $ipn, AF_INET );
     
    print "$host1\n$ipa\n$host2\n";
     
    # EOF
    

添付ファイル: fileHostToIP.zip 335件 [詳細]

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