Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: What is my IP address?

by broquaint (Abbot)
on Apr 25, 2003 at 09:34 UTC ( [id://253109]=note: print w/replies, xml ) Need Help??


in reply to What is my IP address?

Let's see what ol' perldoc has to say about the matter ...
shell> perldoc -q 'ip address'
Found in /usr/lib/perl5/5.6.1/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 dis- tribution) 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.)

Well, there you have it :)
HTH

_________
broquaint

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://253109]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others avoiding work at the Monastery: (10)
As of 2024-03-28 10:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found