将Python模块迁移至Perl 6：寻找支持data参数的urlopen方法

我来帮你搞定这个迁移问题！Perl 6标准库里没有直接对应Python urllib.request.urlopen 带data参数的方法，但咱们可以用社区维护的HTTP::UserAgent模块实现完全一致的逻辑——这是Perl 6生态里最常用的HTTP客户端工具。

第一步：安装依赖模块 #

先用Perl 6的包管理器zef安装需要的模块：

zef install HTTP::UserAgent URI::QueryParam JSON::Fast

第二步：对应原Python逻辑的Perl 6代码 #

下面是完全匹配你原代码逻辑的实现，我会逐段对应说明：

use HTTP::UserAgent;
use URI::QueryParam;
use JSON::Fast;

# 先迁移原Python的oauth_query函数逻辑
sub oauth_query(%args, :$via = 'quote_plus', :$safe = '') {
    my $uri = URI.new('');
    # 用URI模块自动处理表单字段的编码
    $uri.query-param($_) = %args{$_} for %args.keys;
    return $uri.query;
}

# 替换成你的实际URL和headers
my $target-url = "https://example.com/api";
my %request-headers = (
    'Content-Type' => 'application/x-www-form-urlencoded',
    # 其他headers...
);

my $ua = HTTP::UserAgent.new;
my $response;

# 复刻原Python的Content-Type分支逻辑
if %request-headers<Content-Type> eq 'application/x-www-form-urlencoded' {
    my %args = # 原代码中的args变量内容;
    # 编码表单数据，对应Python的encode()
    my $encoded-data = oauth_query(%args).encode('UTF-8');
    # 构造POST请求并设置headers和内容
    my $req = HTTP::Request.new(POST => $target-url);
    $req.header($_) = %request-headers{$_} for %request-headers.keys;
    $req.content = $encoded-data;
    $response = $ua.request($req);
}
elsif %request-headers<Content-Type> ~~ /form-data/ {
    my %args = # 原代码中的args变量内容;
    my @multipart-parts;
    # 处理multipart表单的每个字段
    for %args<form-data>.kv -> $key, $value {
        push @multipart-parts, HTTP::MultiPart.new(
            name => $key,
            content => $value
        );
        # 如果需要上传文件，改成这样：
        # push @multipart-parts, HTTP::MultiPart.new(
        #     name => 'upload_file',
        #     filename => 'test.txt',
        #     content => slurp('test.txt'),
        #     content-type => 'text/plain'
        # );
    }
    $response = $ua.post($target-url, multipart => @multipart-parts, headers => %request-headers);
}
else {
    # 对应原Python的data=None情况，发送无内容的请求
    my $req = HTTP::Request.new(POST => $target-url, headers => %request-headers);
    $response = $ua.request($req);
    # 如果原逻辑是GET请求，直接用：$response = $ua.get($target-url, headers => %request-headers);
}

# 对应原Python的resp.json()方法
sub resp_json() {
    return from-json($response.content) if $response.is-success;
    # 可以在这里加错误处理逻辑
    die "请求失败：" ~ $response.status-line;
}

关键细节说明 #

• application/x-www-form-urlencoded：用URI::QueryParam自动生成符合规范的表单字符串，再编码成字节流，完美对应Python的encode()操作。
• multipart/form-data：HTTP::UserAgent的post方法支持multipart参数，用HTTP::MultiPart对象构造每个表单部分，普通字段和文件上传都能处理。
• 无data的情况：构造空内容的POST请求（或者直接用GET），完全匹配原Python的data=None逻辑。

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