Question

我正在将Python模块翻译为Perl 6，但无法找到名为urlopen的方法，该方法可以接受数据：

    from six.moves.urllib import request

    req = request.Request(url, headers=headers)

    if headers.get('Content-Type') == 'application/x-www-form-urlencoded':
        data = oauth_query(args, via='quote_plus', safe='').encode()

    elif 'form-data' in headers.get('Content-Type', ''):  # multipart/form-data
        data = args['form-data']
    else:
        data = None

    resp = request.urlopen(req, data=data)
    resp.json = lambda: json.loads(resp.read().decode() or '""')
    return resp

oauth_query是一个返回已排序字符串的方法：

def oauth_query(args, via='quote', safe='~'):
    return '&'.join('%s=%s' % (k, oauth_escape(v, via, safe)) for k, v in sorted(args.items()))

我将上面的代码翻译成Perl 6：

   use WWW;

   my $data = "";
   if %headers{'Content-Type'} eq 'application/x-www-form-urlencoded' {
       $data = oauth_query(%args);
   } elsif %headers{'Content-Type'}.contains('form-data') {
       $data = %args{'form-data'};
   } else {
       $data = Any;
   }

   my $res = get $url, |%headers; # but without data that contains Content-Type, it will
                                  # Died with HTTP::MediaType::X::MediaTypeParser::IllegalMediaType

我想在Python中返回resp。欢迎任何帮助！

Answer 1

我已将程序减少到最低限度;你仍然需要处理标题和OAuth查询，但这是有效的

use WWW;

sub MAIN( :$have-data = 0 ) {
    my $url='https://jsonplaceholder.typicode.com/posts/';
    my %args=%(form-data => "userId=1&id=2");
    my $data = "";

    if $have-data {
        $data = %args{'form-data'};
    } 

    my $res;
    if $data {
        $res = post $url, $data;
    } else {
        $res= get $url~'1';
    }
    say $res;
}

基线是Python中的urlopen确实获取或发布，具体取决于是否有数据。在这种情况下，我为此目的使用了一个简单的if，因为WWW非常准确并且不支持它。我也使用模拟REST接口，所以我实际上根据数据更改URL，这也是虚拟数据。您可以在没有参数或

的情况下调用程序

perl6 urlopen.p6 --have-data=1

并且模拟服务器将返回...某事。如果您贡献的模块（某种程度上）比WWW更高，或者WWW本身也是如此。希望这能解决（有点）你的问题。

Perl 6中的urlopen方法？

2 个答案: