string - perl6 任何类似于用于读取数据的 Racket 方案的字符串端口？

Question

在Racket Scheme中，有一个名为“string port”的数据结构，可以从中读取数据。 perl6 中有类似的东西吗？例如，我想实现这些结果:

my $a = "(1,2,3,4,5)"; # if you read from $a, you get a list that you can use;
my $aList=readStringPort($a);
say $aList.WHAT; # (List)
say $aList.elems; # 5 elements

my $b = "[1,2,3]"; # you get an array to use if you read from it;

my $c = "sub ($one) {say $one;}";
$c("Big Bang"); # says Big Bang

函数 EVAL 并没有完全完成所有任务:

> EVAL "1,2,3"
(1 2 3)
> my $a = EVAL "1,2,3"
(1 2 3)
> $a.WHAT
(List)
> my $b = EVAL "sub ($one) {say $one;}";
===SORRY!=== Error while compiling:
Variable '$one' is not declared. Did you mean '&one'?
------> my $b = EVAL "sub (⏏$one) {say $one;}";

非常感谢!

流水线

Answer 1

EVAL 执行此操作。

您上一个示例中的问题是，双引号字符串 插入$ 变量和{ block 等。为了在字符串文字中表示这些东西，要么用反斜杠转义它们......

my $b = EVAL "sub (\$one) \{say \$one;}";

...或使用非内插字符串文字:

my $b = EVAL 'sub ($one) {say $one;}';
my $b = EVAL Q[sub ($one) {say $one;}];