Anyone think it would be nice is Sys::Hostname did this itself?

$ perl -MSys::Hostname -le 'print join ".", unpack "C*", (gethostbyname hostname)[4]'
195.82.114.220
$

perlfaq9, consulted belatedly, (requires Socket)

$ perl -MSocket -MSys::Hostname -le 'print inet_ntoa(scalar gethostbyname hostname)'
195.82.114.220
$

Paul

-- 
Paul Makepeace ....................................... http://paulm.com/

"If pickup sticks were how countries fought, then what colour is my
 house."
   -- http://paulm.com/toys/surrealism/

Reply via email to