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