Tips in Action‎ > ‎기타‎ > ‎

자신의 IP Address 알아내기

전종필

우연히 펄마니아 사이트에서 자신의 호스트의 IP address를 알아내는 방법에 대한 질문이 있길래 NetAddr::IP 모듈을 이용한 방법을 소개해 드렸습니다.

use NetAddr::IP;
my $hostname = $ENV{HOSTNAME} || `hostname`; # unix, of course...
my $ipinfo = new NetAddr::IP $hostname;
print $ipinfo->addr, "\n";
다른 분은 Sys::Hostname 모듈을 소개하셨구요...
하지만, 분명히 좀 더 간편한 방법이 있을 것이란 생각이 들었습니다.
그래서, CPAN 사이트를 찾아 보았지요.
CPAN 사이트에는 거의 항상 원하는 것이 있고, 이 번에도 마찬가지였습니다.

use Sys::HostIP;
$ipaddr= hostip;
print "$ipaddr\n";
더 이상 간단해질 수도, 설명이 필요하지도 않는 모듈과 예제입니다.
행복을 주는 Perl 세상입니다. 
Comments