Table of Contents

概要

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

ソース

  • HostToIP.zip
    #!/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

リンク