我有一个解析环境(Marpa::R2::Scanless),需要使用单个Perl正则表达式字符类来控制标记化。我有一些要标记化的内容,它似乎不符合现有的任何字符类。因此,在perlunicode文档中查找后,我想出了以下代码,但它并没有按预期工作。我期望看到一排点与所有非字母数字(括号除外)交错。相反,我得到了一个关于无法找到字符类的运行时错误。
#!/usr/bin/env perl
use 5.018;
use utf8;
local $| = 1;
for my $i (map { chr($_) } 32 .. 127) {
if ($i =~ /\p{Magic::Wow}/) {
print $i;
}
else {
print ".";
}
}
package Magic;
sub Wow {
return <<'MAGIC';
+utf8::Assigned
-utf8::Letter
-utf8::Number
-0028
-0029
MAGIC
}
1;
有什么提示、技巧、窍门或建议吗?