perl - 检测并显示计算机 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 内置函数将名称转换为数字。要将该数字转换为大多数人期望的点分八位字节形式 (abcd)，请使用 Socket 模块中的 inet_ntoa 函数，该函数也随 perl 一起提供。

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

更多示例：Perldoc，我如何找到我的主机名、域名或 IP

Answer 2

您是否正在寻找

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