perl6/Rakudo 是否有与 perl5 的
__DATA__
或 __END__
部分等效的内容?
S02设计文档:
不再有任何特殊的数据流——任何 Pod 块 可以通过 Pod 对象访问当前文件...因此,您可以在脚本文件中定义任意数量的 Pod 块,而不是通过读取文件句柄来访问每个文件的单个你必须自己将[Pod block]内容拆分成行。
[推测] 也可以将 Pod 对象视为 IO::Handle,逐行读取Pod信息(如DATA Perl 5 中的文件句柄,但适用于任何 Pod 块)。
DATA 部分;它们在编译时存储在 $=pod
变量中;你从该变量中读取;所谓的“数据”相当于 Perl 5 的DATA。 这在今天有效。我稍后会展示这一点。但首先我需要谈谈今天不起作用的东西。
上面的引用是高度选择性的。省略的文本谈到 P6 自动创建一个名称为
$=foo
形式的变量,对应于名称为“foo”的 Pod 块。这是 Pod 块的一个尚未实现的通用功能,而不仅仅是数据块。Pod 设计文档
S26 的“数据块”部分讨论了数据块比普通的旧 Pod 块做一些更奇特的事情。这也尚未实施。
那么,现在让我们继续讨论今天可以做的事情:
=foo This is a Pod block. A single line one. This Pod block's name is 'foo'.
=begin qux
This is another syntax for defining a Pod block.
It allows for multi line content.
This block's name is 'qux'.
=end qux
=data A data block -- a Pod block with the name 'data'.
# Data blocks are P6's version of P5's __DATA__.
# But you can have multiple data blocks:
=begin data
Another data block.
This time a multi line one.
=end data
$=pod.grep(*.name eq 'data').map(*.contents[0].contents.say);
打印:
A data block -- a Pod block with the name 'data'.
Another data block. This time a multi line one.
所以,它有点有效。但它显然需要更多的糖。
顺便说一下,如果最后一个 FP 风格行没有意义,这里有一个等价的命令式:
for @$=pod {
if .name eq 'data' {
say .contents[0].contents
}
};
for data().lines -> $line {
put $line;
}
sub data {
return q:to/END/;
Foo, bar, baz
1, 2, 3
END
}
输出
Foo, bar, baz
1, 2, 3
my @txts = data();
dd @txts;
# this works too
my %stuff = hashdata();
dd %stuff;
# a lot of lines
sub data() {
return ( q:to/LINE1/,
Phasellus dictum, nunc id vestibulum rhoncus, mauris massa tempus nibh,
nec tincidunt nisi tellus et arcu. Phasellus vulputate consectetur
vulputate. Quisque viverra commodo velit ac tincidunt. Nulla et est sem.
Mauris gravida, nulla rutrum pharetra dapibus, eros velit feugiat nibh,
nec iaculis purus urna ut diam. Praesent molestie felis a turpis gravida
placerat. Duis sagittis pulvinar risus non aliquet. Nunc quis purus
tempor, mattis nunc eu, porta ligula. Suspendisse dictum sit amet urna
dapibus suscipit.
LINE1
q:to/LINE2/,
Praesent molestie felis a turpis gravida
placerat. Duis sagittis pulvinar risus non aliquet. Nunc quis purus
tempor, mattis nunc eu, porta ligula. Suspendisse dictum sit amet urna
dapibus suscipit.
LINE2
q:to/LINE3/);
Quisque viverra commodo velit ac tincidunt. Nulla et est sem.
Mauris gravida, nulla rutrum pharetra dapibus, eros velit feugiat nibh,
nec iaculis purus urna ut diam. Praesent molestie felis a turpis gravida
placerat.
LINE3
}
sub hashdata() { # a hash works too.
return ( 'p' => q:to/PDATA/,
Some multiline data
in some lines
PDATA
'q' => q:to/QDATA/,
More data in
multiple lines
QDATA
'r' => q:to/RDATA/
Note that indentation depends on the position of the
ending token.
Also, the punctuation following the regex is the punctuation
following the expression. So a comma after each of the
p and q, but not needed after the r
RDATA
)
}