Perl ネタ
【Perl おぼえがき】URL から Web サーバのホスト名を検索。
タイトルの通りなんですが、FQDN ではなくて物理ホスト名を取得したいです。
URL の "http://" を省いたところがホスト名であるって考え方もあって、それはそれで間違ってはいないと思うんだけど、実際には FQDN とは違ったホスト名が割り当てられていると思うので。
unix ならば host コマンドで FQDN から物理ホスト名を探し当てるところを Perl を使ってやってみたい。
use strict;
use warnings;
use Socket;
my $url = "http://www.yahoo.co.jp";
$url =~ s/http:\/\///;
my $ip = inet_aton($url);
my $host = gethostbyaddr($ip, AF_INET);
print "$host\n";
Socket モジュールを使えば、こんな感じで Web サーバのホスト名が取得できそうです。
言い方を変えれば A レコードの IP アドレスのサーバ名ってところでしょうか。
