ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Sergey Larionov 2:5020/400 15 Jan 2003 14:07:58
To : All
Subject : Полное номенное имя моего компа
--------------------------------------------------------------------------------
Как определить полное доменное имя на win NT / 2K ?
Кристиансен, в "Библиотеке программиста" рекомендует так :
use strict;
use Sys::Hostname;
use Socket;
my $hostname = hostname();
my $Address = gethostbyname($hostname)
or die "Couldn't resolve $hostname; $!";
my $DNSname = gethostbyaddr($Address, AF_INET)
or die "Couldn't re-resolve $Address; $!";
my $ip = inet_ntoa($Address);
print "Address : $ip Name : $DNSname";
Рецепт 17.8
Hо не работает это !!!! После выполнения печатается :
Address : 123.45.67.89 Name : lary
А я хочу получить
Address : 123.45.67.89 Name : lary.darim.ru
В чем проблема ?
Сергей Ларионов
--- ifmail v.2.15dev5
* Origin: Tomsktelecom - Digital Networks (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
