use Sys::Hostname;
my $hostname = hostname();

my $ip = gethostbyname($hostname);
[download]

The POSIX::uname() method looks like:

use POSIX qw( uname );

my $hostname = (uname())[1];

# the rest as above
[download]

Sys::Hostname (on linux) never seems to give me the DNS name I was assigned by the DNS server so the gethostbyname() call won't work. It does seem to work on win32 though.

DNS name I was assigned by the DNS server

err... assigned by the DHCP server..

NAME
Sys::HostIP - Try really hard to get IP addr.

SYNOPSIS
use Sys::HostIP;
$ipaddr= hostip; # get (text) dotted-decimal ip 

use IO::Socket;
use Sys::Hostname;
# Have to try non-cannonical name first, since there
# is a better chance the computer knows itself than
# of DNS knowing it.
if($^O eq 'MSWin32')
    # check ipconfig.exe 
    #     (Which does all the work of checking the registry,
    #     probably more efficiently than I could.)
    # check nbtstat.exe 
    #     (Which does all the work of checking WINS,
    #     more easily than Win32::AdminMisc::GetHostAddress().)
    # check /etc/hosts entries 
    # check /etc/lmhosts entries 
    #     (It will only be here if the file has been modified since th
+e
    #     last WINS refresh, which is unlikely, but might as well try.
+)
elsif($^O=~ /IX|ux/i)
    # check /etc/hosts entries 
# last resort: ping (which can be very slow)
[download]

This module is actually doing what I was reluctant to do which was matching the IP address from `ipconfig` or the /etc/hosts file (depending on the OS) if it doesn't find the IP address based on what Sys::Hostname finds (which is incorrect).

Oh well, it works.

I'm glad it works, also curious - why the reluctance?

BTW, your script sounds like a good candidate for Snippets.   Dunno 'bout other monks, but I'd benefit from seeing it.
    cheers,
    Don
    striving for Perl Adept
    (it's pronounced "why-bick")

Thanks! This is exactly what I needed. It seems to work very well on the systems I've tested so far.

use Socket;
use Sys::Hostname;

my $hostname = hostname();
my     $name ='yahoo.com';
my       $ip = inet_ntoa(scalar(gethostbyname($name)) || 'localhost');
my     $myip = inet_ntoa(scalar(gethostbyname($hostname)));

print $ip, "\n", $myip;

__END__
sample output:
216.115.108.245
4.52.23.253
[download]

"cRaZy is co01, but sometimes cRaZy is cRaZy".
                                                      - crazyinsomniac