Getting a Unix server IP address

[landhippy]

I need to run a Perl script to return the IP address of the server the script is running on.

 

[missbarbell]

use Socket 'inet_ntoa';
use Sys::Hostname 'hostname';
$addr = inet_ntoa(scalar gethostbyname(hostname() || 'localhost'));
print "$addr\n";

Should do the trick

Barbie
Leader of Birmingham Perl Mongers

http://birmingham.pm.org

 

[landhippy]

Thanks, I had come up with the following:

use Socket; #Include the socket library.

$hostName = $ARGV[0]; #Grab command line parameter
$addr1 = inet_aton($hostName); #Get IP address in internal format.
$addr2 = inet_ntoa($addr1); #Get the IP address in dotted notation.

print $addr2; #Print the IP address to standard output.

Both seem to work fine.

Thanks for your help