5

例如，当我运行我的简单代码时，我已经安装了Cro模块：

 my %headers = {Authorization => OAuth realm="", oauth_consumer_key="xxxxxxxxxxxxxxxx", oauth_nonce="29515362", oauth_signature="KojMlteEAHlYjMcLc6LFiOwRnJ8%3D", oauth_signature_method="HMAC-SHA1", oauth_timestamp="1525913154", oauth_token="xxxx-xxxxxxxxxxxxxxxxxx", oauth_version="1.0", User-Agent => Cro};

 my $resp = await Cro::HTTP::Client.get: 'http://api.fanfou.com/statuses/home_timeline.json',
     headers => [
            user-agent   => 'Cro',
            content-type => 'application/json;charset=UTF-8',
            |%headers
     ];

 say $resp.header('content-type'); # Output: application/json; charset=utf-8;
 my Str $text = await $resp.body-text();

它说'无法解析媒体类型application/json; charset=utf-8;

Died with the exception:
    Could not parse media type 'application/json; charset=utf-8;'
      in method parse at /Users/ohmycloud/.perl6/sources/5B710DB8DF7799BC8B40647E4F9945BCB8745B69 (Cro::MediaType) line 74
      in method content-type at /Users/ohmycloud/.perl6/sources/427E29691A1F7367C23E3F4FE63E7BDB1C5D7F63 (Cro::HTTP::Message) line 74
      in method body-text-encoding at /Users/ohmycloud/.perl6/sources/427E29691A1F7367C23E3F4FE63E7BDB1C5D7F63 (Cro::HTTP::Message) line 83
      in block  at /Users/ohmycloud/.perl6/sources/F870148C579AB45DEB39F02722B617776C3D6D5F (Cro::MessageWithBody) line 49

似乎这application/json; charset=utf8;不是有效的content-type，所以我添加了一个测试：

use Cro::MediaType;
use Test;

sub parses($media-type, $desc, &checks) {
    my $parsed;
    lives-ok { $parsed = Cro::MediaType.parse($media-type) }, $desc;
    checks($parsed) if $parsed;
}

parses 'application/json; charset=utf-8;', 'application/json media type with charset', {
    is .type, 'application', 'Correct type';
    is .subtype, 'json', 'Correct subtype';
    is .subtype-name, 'json', 'Correct subtype name';
    is .tree, '', 'No tree';
    is .suffix, '', 'No suffix';
    is .Str, 'application/json; charset=utf-8;', 'Stringifies correctly';
};

done-testing;

输出是：

not ok 1 - application/json media type with charset
# Failed test 'application/json media type with charset'
# at cro_media.pl6 line 6
# Could not parse media type 'application/json; charset=utf-8;'
1..1
# Looks like you failed 1 test of 1

源代码似乎位于/Users/ohmycloud/.perl6/sources/5B710DB8DF7799BC8B40647E4F9945BCB8745B69文件中，我';'?在TOP令牌后添加：

token TOP { <media-type> ';'? }

保存，然后再次运行我的代码，但错误是一样的。那么如何让改变发挥作用呢？在 Perl 5 中，我只能编辑我的.pm模块，但在 Perl 6 中，我不知道该怎么做。

4

2 回答 2

6

在zef's issues 的这个答案中，他们声明“安装是不可变的”。如果您从其源下载 Cro，修补并重新安装，以便您的应用程序选择新版本，这可能是一个更好的选择。

'application/json' 也可能不承认该字符集声明，或者 ; 后面不应该有空格。但这里的主要问题是一旦安装就不应编辑模块。

于 2018-05-10T05:27:01.673 回答
3

正如 jjmerelo 提到的，安装是不可变的，一种解决方案是下载源代码（包括 META6.json 文件），编辑您想要的代码，然后：

zef install . --/test

对于简单的测试，对我来说没问题。

至于application/json; chartset=utf-8;无法解析，我加了一个;inMediaType.pm6的token记号，使其可以包含;（可能是bug，我不知道）：

token token { <[A..Za..z0..9;!#$%&'*+^_`{|}~-]>+ }

安装在本地，现在解析正常。

于 2018-05-10T10:28:18.857 回答