Perl中qqww/qqww:to结构体冒号对报错及类生成JSON问题

让我帮你逐个解决这两个Perl 6的问题：

首先得明确：qqww是Perl 6里的「带插值的词列表构造器」，它默认会把内容按空白分割成列表，而且会把以:开头的内容解析成命名参数，而不是普通的列表元素——这就是你没法直接用key:value这类冒号对的原因。

解决办法有这几种：

• 转义冒号：在冒号前加反斜杠，让它被当作普通字符处理，比如：

  my @words = qqww/key\:value item2 item3/;
  # @words 会是 ["key:value", "item2", "item3"]
  

• 用双引号包裹冒号对：把带冒号的部分用双引号括起来，强制它作为单个列表元素：

  my @words = qqww/"key:value" "another:pair" item3/;
  

• 改用qq+split替代：如果只是需要生成带插值的词列表，这种方式更灵活，完全避开qqww的语法限制：

  my @words = qq{key:value $interpolated_var item3}.split(/\s+/);
  

你目前的问题主要是误用了构造器：qqww:to是用来生成多行词列表的，但gist方法需要返回单个字符串（JSON格式），而且你的EOF块内容也不完整。

修复后的基础版本 #

把qqww:to换成qq:to（多行双引号插值构造器），确保返回的是完整的JSON字符串：

my $ak = '7111ac873c9dcd5fc335ded47630d050';
my $st = '1523451601875';
my $ifo = 'true';
my $uu = "15778787898988090";

class Stay {
    has $.ak is rw = '7111ac873c9dcd5fc335ded47630d050';
    has $.uu is rw;
    has $.ifo is rw;
    has $.st is rw;

    method gist() {
        return qq:to「EOF」;
{"ev":"app","ak":"$!ak","uu":"$!uu","ifo":"$!ifo","st":"$!st"}
EOF
    }
}

# 测试
my $stay = Stay.new(uu => $uu, ifo => $ifo, st => $st);
say $stay.gist; # 输出合法的JSON字符串

更可靠的进阶方案（推荐） #

手动拼接JSON容易因为特殊字符（比如引号、反斜杠）出错，建议用Perl 6的JSON::Fast模块自动生成JSON，确保格式绝对合法：

use JSON::Fast;

my $ak = '7111ac873c9dcd5fc335ded47630d050';
my $st = '1523451601875';
my $ifo = 'true';
my $uu = "15778787898988090";

class Stay {
    has $.ak is rw = '7111ac873c9dcd5fc335ded47630d050';
    has $.uu is rw;
    has $.ifo is rw;
    has $.st is rw;

    method gist() {
        # 用哈希构造数据，再转成JSON
        return to-json({
            ev  => 'app',
            ak  => $!ak,
            uu  => $!uu,
            ifo => $!ifo,
            st  => $!st
        });
    }
}

# 测试
my $stay = Stay.new(uu => $uu, ifo => $ifo, st => $st);
say $stay.gist;

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