1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
use Perl6::Form 'drill';
my @AoA = (
[1,2,3],
[4,5,6],
[7,8,9],
);
my @AoH = (
{a=>1,b=>2,c=>3},
{a=>4,b=>5,c=>6},
{a=>7,b=>8,c=>9},
);
my %HoA = (
x=>[1,2,3],
y=>[4,5,6],
z=>[7,8,9],
);
my %HoH = (
x=>{a=>1,b=>2,c=>3},
y=>{a=>4,b=>5,c=>6},
z=>{a=>7,b=>8,c=>9},
);
use Data::Dumper 'Dumper';
warn Dumper [ drill @AoA, [], [1,2] ];
warn Dumper [ drill @AoH, [], ['b','c'] ];
warn Dumper [ drill %HoA, [], [1,2] ];
warn Dumper [ drill %HoH, [], ['b','c'] ];
my @AoHoA = (
{a=>[1,11,111],b=>[2,22,222],c=>[3,33,333]},
{a=>[4,44,444],b=>[5,55,555],c=>[6,66,666]},
{a=>[7,77,777],b=>[8,88,888],c=>[9,99,999]},
);
warn Dumper [ drill @AoHoA, [], ['b','c'] ];
warn Dumper [ drill @AoHoA, [], ['b','c'], [1,2] ];
my @AoHoAoH = (
{a=>[{x=>1},{x=>11},{y=>111}],b=>[{x=>2},{y=>22},{x=>222}],c=>[{x=>3},{y=>33}]},
{a=>[{x=>4},{x=>44},{y=>444}],b=>[{y=>5},{x=>55},{x=>555}],c=>[{x=>6},{y=>66}]},
);
warn Dumper [ drill @AoHoAoH, [], ['b','c'], [0], ['x'] ];
|
