如何从Perl确定本地计算机的IP地址？

是否有一种干净且独立于操作系统的方法来确定Perl的本地计算机的IP地址？

到目前为止,我找到了以下解决方案:

解析ifconfig和ipconfig的输出(硬盘,不同的windows版本有不同的ipconfig输出)

建立与知名IP的网络连接并检查套接字的本地IP地址(如果我无法建立连接并且只确定一个IP地址将无法工作)

还有更好的建议吗？

您还有其他一些选项,包括"建立与知名IP的网络连接并检查套接字的本地IP地址"的解决方案.

但是,在那种情况下(建立网络连接),该文章指出:

没有主机的IP地址.
网络接口具有IP地址,而不是主机,并且单个网络接口可以具有许多(虚拟)IP地址.操作系统的路由子系统决定使用哪个网络接口和IP地址连接到远程计算机.

如果您的计算机只有一个外部网络接口,并且此接口只有一个IP地址,则此IP地址通常称为计算机的地址,但这是不准确的.
例如,如果机器通过虚拟接口连接到VPN,它将使用此接口的IP地址连接到VPN上的另一台机器,而不是外部IP地址

在其他解决方案中:使用" Sys::Hostname"
(如果Sys::Hostname出现可解析的主机名,则为Works )

use Sys::Hostname;
use Socket;
my($addr)=inet_ntoa((gethostbyname(hostname))[4]);
print "$addr\n";

Net :: Address :: IP :: Local看起来很有希望.

use Net::Address::IP::Local;

# Get the local system's IP address that is "en route" to "the internet":
my $address      = Net::Address::IP::Local->public;

就我而言,我需要一个没有任何非核心依赖关系的解决方案.在研究Net :: Address :: IP :: Local中的代码后,我想出了这个:

#!/usr/bin/env perl

use strict;
use warnings;

use IO::Socket::INET;

my $local_ip_address = get_local_ip_address();

print "$local_ip_address\n";

# This idea was stolen from Net::Address::IP::Local::connected_to()
sub get_local_ip_address {
    my $socket = IO::Socket::INET->new(
        Proto       => 'udp',
        PeerAddr    => '198.41.0.4', # a.root-servers.net
        PeerPort    => '53', # DNS
    );

    # A side-effect of making a socket connection is that our IP address
    # is available from the 'sockhost' method
    my $local_ip_address = $socket->sockhost;

    return $local_ip_address;
}

get_local_ip_address()应该返回相同的字符串Net::Address::IP::Local->public_ipv4.

如果需要,您可以将PeerAddr属性(在IO :: Socket :: INET的构造函数的参数中)更改为本地DNS服务器.

要检索所有接口的IP地址,请使用IO :: Interface :: Simple:

perl -MIO::Interface::Simple '-Esay $_->address for grep { $_->is_running && defined $_->address } IO::Interface::Simple->interfaces'

如果您对127.0.0.1(环回)不感兴趣,可以过滤$_->is_loopback.