无法使用 Inline::Perl5 将 Perl5 模块导入 Perl6

Question

我正在尝试导入一个我非常喜欢 https://metacpan.org/pod/Data::Printer 的 Perl5 模块 使用手册页中的建议 https://modules.perl6.org/dist/Inline::Perl5:cpan:NINE

使用非常简单的脚本

use Inline::Perl5;
my $p5 = Inline::Perl5.new;
$p5.use('Data::Printer');

然后我得到这个错误：

Unsupported type NativeCall::Types::Pointer<94774650480224> in p5_to_p6
  in method p5_to_p6_type at /usr/lib/perl6/site/sources/130449F27E85303EEC9A19017246A5ED249F99E4 (Inline::Perl5) line 298
  in method unpack_return_values at /usr/lib/perl6/site/sources/130449F27E85303EEC9A19017246A5ED249F99E4 (Inline::Perl5) line 375
  in method invoke at /usr/lib/perl6/site/sources/130449F27E85303EEC9A19017246A5ED249F99E4 (Inline::Perl5) line 446
  in method import at /usr/lib/perl6/site/sources/130449F27E85303EEC9A19017246A5ED249F99E4 (Inline::Perl5) line 776
  in method use at /usr/lib/perl6/site/sources/130449F27E85303EEC9A19017246A5ED249F99E4 (Inline::Perl5) line 898
  in block <unit> at inline_perl5.p6 line 4

这里出了什么问题？如何将此 perl5 模块导入 perl6？如果有一种类似的方法可以在 Perl6 中获取彩色/选项卡式输出，就像我从 Data::Printer 获得的那样，我也会很高兴，因为我找不到它。

编辑：这里解决了：how to load Perl5's Data::Printer in Perl6?

Answer 1

我认为您偶然发现了 Inline::Perl5 中的一个错误，该错误似乎发生在 Data::Printer Perl 5 模块中，因此我建议您在 https://github.com/niner/Inline-Perl5/issues 上为它打开一个问题。

与此同时，语法变得更加简单。一旦您安装了Inline::Perl5，您只需添加:from<Perl5> 副词即可从 Perl 5 加载模块：

use Data::Printer:from<Perl5>;

不幸的是，此时会产生与您已经描述的相同的错误：

===SORRY!===
Unsupported type NativeCall::Types::Pointer<140393737675456> in p5_to_p6

所以我认为没有不需要升级 Inline::Perl5 或 Rakudo Perl 6 的解决方案。

Answer 2

来自 github 页面，https://github.com/niner/Inline-Perl5/issues/128

> perl6 -Ilib -e 'use Data::Printer:from<Perl5>; my @a = 1, 2, [3, 4, ${a => 1}]; p @a'
[
    [0] 1,
    [1] 2,
    [2] [
        [0] 3,
        [1] 4,
        [2] {
            a   1
        } (tied to Perl6::Hash)
    ]
]

不过，我对此并不特别满意。这比 perl5 要复杂得多。在 Perl5 上使用 Perl6 的要点之一是更简单的使用和语法。这不是。 'Inline::Perl5' 模块应该能够像其他所有模块一样在脚本中加载，而不是作为命令行选项。