Ist es möglich, Gethostbyname in Perl zu überschreiben oder zu affen, damit es IPv6 unterstützt?

Question

Ich habe eine application which uses Perl's gethostbyname to check if a hostname exists in DNS. Ich möchte den Quellcode der Anwendung, die nicht von mir geschrieben wurde, nicht patchen. Aber ich überlege, gethostbyname in einer der Perl-geschriebenen Konfigurationsdateien zu überschreiben.

Also frage ich mich, ob es eine Chance gibt, diese Funktion zu überschreiben, indem man sie irgendwie monkey-patchen.

Die 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 

Bisher habe ich versucht:

$ 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 

Und:.

$ 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 

(Ich habe auch versucht main statt * und replace statt addreplace gerettet wie folgt: Replacing *::gethostbyname: must already exist at /usr/share/perl5/Monkey/Patch/Action.pm line 31.)

Answer 1

TL; TR: Das ist nicht zu erklären, wie gethostbyname (die bisherigen außer Kraft setzen sollte erklären, tut das), sondern hilft, dass dies nicht Ihr eigentliches Problem nicht behebt diesen spezifischen Code machen IPv6 bereit .

---

Zuerst, was sollte ein IPv6 bereit gethostbyname zurückgeben? Mit IPv4 wird eine gepackte IPv4-Adresse zurückgegeben, und dies wird von Code erwartet, der gethostbyname aufruft. Auf diesen Code folgen normalerweise sockaddr_in, PF_INET Sockets usw. Bei IPv6 muss dieser Code stattdessen und PF_INET6 verwenden, was bedeutet, dass es nicht ausreicht, gethostbyname zu patchen.

Und schauen Sie weiter in den Code, den Sie beheben müssen, ist dies tatsächlich der Fall. Sie haben gerade in Ihrer Frage einen Aufruf von gethostbyname verknüpft, der nur prüft, ob ein definierter Wert zurückgegeben wird. Aber wenn Sie further in the code schauen, werden Sie die explizite Verwendung von inet_aton, PF_INET Sockets usw. sehen, d. H. Alles nimmt nur IPv4-Adressen an.