> -----Original Message-----
> From: Japerlh [mailto:[EMAIL PROTECTED]
> Sent: Friday, 26 May 2006 11:21 AM
> To: beginners
> Subject: Help: Is there any way to get the name of the Window Server
> that the Perl script is currently running on?
>
>
> Help: Is there any way to get the name of the Window Server that the
> Perl script is currently running on?
>
> Thanks.
>
>
> --
>
> Besh wishes,
> Japerlh
>
Found in C:\Perl\lib\pod\perlfaq9.pod
How do I find out my hostname/domainname/IP address?
The normal way to find your own hostname is to call the `hostname`
program. While sometimes expedient, this has some problems, such as not
knowing whether you've got the canonical name or not. It's one of those
tradeoffs of convenience versus portability.
The Sys::Hostname module (part of the standard perl distribution) will
give you the hostname after which you can find out the IP address
(assuming you have working DNS) with a gethostbyname() call.
use Socket;
use Sys::Hostname;
my $host = hostname();
my $addr = inet_ntoa(scalar gethostbyname($host || 'localhost'));
Probably the simplest way to learn your DNS domain name is to grok it
out of /etc/resolv.conf, at least under Unix. Of course, this assumes
several things about your resolv.conf configuration, including that it
exists.
(We still need a good DNS domain name-learning method for non-Unix
systems.)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
