On Thu, 22 Apr 2004 14:20:43 -0700
"Rajesh Dorairajan" <[EMAIL PROTECTED]> wrote:

> Sorry. Missed out getting hostname.
> 
> use IO::Socket;
> use Sys::Hostname;
> 
> $HOSTNAME = hostname();
> $ip = inet_ntoa((gethostbyname($HOSTNAME))[4]);

This is okay provided your laptop has a valid host to IP address
translation available.  On Unix typically either an entry in /etc/hosts
or a DNS A record entry.

Take a look at Net::Interface on CPAN. It appears to let you look at
interface information in a system independent way.

-- 
Smoot Carl-Mitchell
Systems/Network Architect
email: [EMAIL PROTECTED]
cell: +1 602 421 9005
home: +1 480 922 7313

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to