是否可以在 Perl 中覆盖或修补 gethostbyname 以支持 IPv6？

Question

我有一个给定的application which uses Perl's gethostbyname to check if a hostname exists in DNS。我不想修补不是我编写的应用程序的源代码。但我考虑在其中一个 Perl 编写的配置文件中覆盖 gethostbyname。

所以我想知道是否有机会通过以某种方式修补该函数来覆盖该函数。

documentation of that application says that its hostname lookups work as follows:

$ perl -e 'print(gethostbyname("ipv6.google.com") ? "ok\n" : "not found\n");'
not found

到目前为止我尝试过：

$ perl -E 'use Socket qw(:DEFAULT getaddrinfo); sub gethostbyname { my ($err, @result) = getaddrinfo(@_); return @result; }; print(gethostbyname("ipv6.google.com") ? "ok\n" : "not found\n");'
not found

还有：

$ perl -E 'use Socket qw(:DEFAULT getaddrinfo); use Monkey::Patch::Action qw(patch_package); patch_package("*", "gethostbyname", "add", sub { my ($err, @result) = getaddrinfo(@_); return @result; }); print(gethostbyname("ipv6.google.com") ? "ok\n" : "not found\n");'
not found

（我也尝试用main 代替* 和replace 代替add。replace 如下所示：Replacing *::gethostbyname: must already exist at /usr/share/perl5/Monkey/Patch/Action.pm line 31.）

Answer 1

TL;TR：这不是解释如何覆盖 gethostbyname（现有的 cmets 应该有助于这样做），而是解释这并不能解决您使这个特定代码准备好 IPv6 的实际问题。

---

首先，IPv6 就绪的gethostbyname 应该返回什么？对于 IPv4，它返回一个打包的 IPv4 地址，这是调用 gethostbyname 的代码所期望的。此类代码后通常会使用 sockaddr_in、PF_INET 套接字等。但对于 IPv6，此代码需要使用 sockaddr_in6 和 PF_INET6，这意味着修补 gethostbyname 是不够的。

而且，进一步研究您必须修复的代码实际上就是这种情况。你刚刚在你的问题中链接到gethostbyname 的调用，它只检查它是否返回一个定义的值。但是，如果您查看further in the code，您会看到inet_aton、PF_INET 套接字等的明确使用，即假设所有内容仅使用 IPv4 地址。