概要

• ホスト名から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

リンク

• Perl/getHostName

• CPAN:Socket

• CPAN:Socket6