檢測並顯示計算機IP地址

Question

任何人都可以請告訴我如何檢測並顯示使用Perl的計算機IP地址。

在此先感謝。請幫忙。

代碼是：

#!/usr/bin/perl 
use IO::Socket; 
$hostname="(my hostname)"; 
my($addr)=inet_ntoa((gethostbyname($hostname))[4]); 
print "$addr\n"; 

Answer 1

你或許在尋找

use CGI qw(); 
my $cgi = CGI->new(); 
print $cgi->header('text/plain'); 
print $cgi->remote_addr(), "\n"; 

Answer 2

在谷歌快速搜索給了我以下信息

要獲取IP地址，你可以使用的gethostbyname內置函數 轉名成數字。要將該數字轉換爲大多數人所期望的帶點的 八位字節表單（a.b.c.d），請使用Socket模塊中的inet_ntoa 函數，該函數也附帶了perl。

use Socket; 
my $address = inet_ntoa(
     scalar gethostbyname($host || 'localhost') 
); 

更多的例子：Perldoc, how do I find my hostname, domainname or IP