Sparrow6.git | examples/tasks/captures-vs-streams/ | task.check
begin:
regexp: (f) (oo)
code: print "layer: 1 ", ( join "", map { map {"{$_}"} @{$_}} @{captures()} ), "\n";
regexp: (\S+)
code: print "layer: 2 ", ( join "", map { map {"{$_}"} @{$_}} @{captures()} ), "\n";
regexp: (\S+)
code: print "layer: 3 ", ( join "", map { map {"{$_}"} @{$_}} @{captures()} ), "\n";
regexp: (\S+)
code: print "layer: 4 ", ( join "", map { map {"{$_}"} @{$_}} @{captures()} ), "\n";
regexp: (bar)
code: print "layer: 5 ", ( join "", map { map {"{$_}"} @{$_}} @{captures()} ), "\n";
code: <<CODE
for my $s (@{streams_array()}) {
my $i=1;
for my $l (@{$s}){
print "layer: ", $i++, " ", (join "", map {"{$_}"} @{$l}), "\n";
}
print "\n";
}
CODE
end: