Finding Out My Own IP-Address

[$Bill Luebkert]

Oliver Copp wrote:
> 
> Hi !
> 
> Is there a function which allows me to find out my current IP address ?
> 
> My best guess was to use gethostbyname("localhost") but that always returns
> 127.0.0.1.
> 
> When I dial in to my provider via NT-RAS, I'm assigned a dynamic IP address -
> which is what I'm trying to find out.

How about:

$name = (gethostbyname ("localhost"))[0];
$addr = (gethostbyname ($name))[4];
printf "%s\n", join ('.', unpack ("C4", $addr));

Works for me (Win95a, GS Perl).
-- 
  ,-/-  __      _  _         $Bill Luebkert
 (_/   /  )    // //       DBE Collectibles
  / ) /--<  o // //      http://www.wgn.net/~dbe/
-/-' /___/_<_</_</_    Mailto:dbe@wgn.net
-
For help on using this list (especially unsubscribing), send a message to
"gnu-win32-request@cygnus.com" with one line of text: "help".