检测并显示计算机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

谷歌上的快速搜索给了我以下信息

  

要获取IP地址，您可以使用gethostbyname内置函数   把名字变成一个数字。将该数字转换为虚线   八角形式（a.b.c.d），大多数人都期望，使用inet_ntoa   来自Socket模块的功能，它也带有perl。

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

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

Answer 2

您是否正在寻找

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