P18 - 从列表中提取切片。索引从 1 开始。
作者：Ryan Connelly
示例
> say get-slice(<a b c d e>, 2, 4); b c d
源代码： P18-topo.pl
use v6;
sub get-slice(@list, $start, $end)
{
@list[$start - 1 ... $end - 1];
}
say "{get-slice(<a b c d e>, 2, 4)}";
Perl 6 示例
作者：Ryan Connelly
> say get-slice(<a b c d e>, 2, 4); b c d
源代码： P18-topo.pl
use v6;
sub get-slice(@list, $start, $end)
{
@list[$start - 1 ... $end - 1];
}
say "{get-slice(<a b c d e>, 2, 4)}";