Perl 6中如何将URL转换为IP地址？gethostbyname函数不存在怎么办

嘿，刚好之前折腾过Perl 6里的域名解析问题，确实没有直接对应Perl 5里gethostbyname的函数，但有两种靠谱的实现方式，给你详细说说：

这是最常用的方案，Net::DNS提供了全套DNS解析能力，除了A记录（域名转IP），还能处理MX、CNAME等其他记录类型。

首先得用zef包管理器安装模块：
zef install Net::DNS

然后可以写个简单的函数来实现URL转IP：

use Net::DNS;

sub url-to-ip(Str $url) {
    # 先从URL里提取域名（兼容带http/https前缀和纯域名的情况）
    my $domain = $url.match(/^https?\:\/\/([^\/]+)/)[0] // $url;
    my $resolver = Net::DNS::Resolver.new;
    # 发送A记录查询请求
    my $reply = $resolver.send($domain, 'A');
    
    if $reply {
        # 过滤出A记录，提取IP地址
        return $reply.answer.grep(Net::DNS::RR::A).map(*.address);
    } else {
        die "无法解析域名: $domain";
    }
}

# 测试一下
say url-to-ip('https://www.perl6.org');

这个函数会先处理URL，提取出核心域名，然后通过DNS解析器获取对应的IP列表，非常直观。

如果不想装第三方模块，Perl 6的核心Socket模块自带的getaddrinfo函数就能搞定，完全不需要额外依赖。

代码示例如下：

use Socket;

sub url-to-ip(Str $url) {
    # 同样先提取域名
    my $domain = $url.match(/^https?\:\/\/([^\/]+)/)[0] // $url;
    # 获取地址信息：指定IPv4、流协议
    my @results = getaddrinfo($domain, 0, :inet, :stream);
    
    # 把二进制地址转换成字符串格式，并且去重（同一个域名可能对应多个IP）
    return @results.map(-> $addr { ntoa($addr[3]) }).unique;
}

# 测试示例
say url-to-ip('https://github.com');

这里getaddrinfo会返回一组地址信息，我们用ntoa把二进制的网络地址转成人类可读的IP字符串，再通过unique去重，避免返回重复的IP。

小提示 #

• 如果输入的是纯域名（比如example.com，没有http前缀），两个函数都能正常处理；
• 如果解析失败，两种方法都会抛出错误，你可以根据自己的需求添加try/catch来做错误捕获和处理。

内容的提问来源于stack exchange，提问作者7hsk