如何用Perl6调用GitHub API？遇服务器无数据返回错误求助

云上老周

2026-5-25

解决Perl6调用GitHub API时"server returned no data"的问题

我之前折腾Perl6调用GitHub API的时候也踩过这个一模一样的坑，咱们一步步来拆解解决：

1. 先把User Agent设置得完全合规

GitHub API强制要求请求必须携带有意义的User Agent，不能用模块默认的空值或者模糊标识。你得明确指定一个，比如你的GitHub用户名、项目名称，甚至可以加上邮箱（格式比如"MyPerl6-GitHub-Tool/1.0 (your-github-username)"）。

正确初始化HTTP::UserAgent的方式应该是这样：

use HTTP::UserAgent;

my $ua = HTTP::UserAgent.new(
    agent => "MyPerl6-GitHub-Tool/1.0 (your-github-username)",
);

2. 检查SSL支持是否到位

GitHub API用的是HTTPS，Perl6的HTTP::UserAgent依赖IO::Socket::SSL模块来处理加密连接。如果没装这个模块，请求可能会默默失败，直接导致"server returned no data"的错误。

用这条命令安装即可：

zef install IO::Socket::SSL

3. 增加错误捕获，拿到更具体的报错信息

默认的错误提示太模糊，咱们可以用try/catch块捕获异常，或者手动检查响应状态，搞清楚到底哪里出问题：

完整的可运行示例（调用GitHub用户信息API）：

use HTTP::UserAgent;
use IO::Socket::SSL; # 确保加载SSL模块

try {
    my $ua = HTTP::UserAgent.new(
        agent => "MyPerl6-GitHub-Tool/1.0 (your-github-username)",
    );

    my $response = $ua.get("https://api.github.com/users/octocat");

    if $response.is-success {
        say $response.content;
    } else {
        say "请求失败，状态码: " ~ $response.code;
        say "错误信息: " ~ $response.message;
    }
}
catch {
    say "捕获到异常: " ~ $_;
}