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
|
use 5.010;
use warnings;
use Perl6::Form;
@names = (
"King Lear",
"The Three Witches",
"Iago",
);
@roles = (
"Protagonist",
"Plot devices",
"Villain",
);
@addresses = (
"The Cliffs, Dover",
"Dismal Forest, Scotland",
"Casa d'Otello, Venezia",
);
print form {interleave=>1},
<<'EOFORMAT',
Name: {[[[[[[[[[[[[[[[} Role: {[[[[[[[[[[}
Address: {[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[}
_______________________________________________
EOFORMAT
\@names, \@roles, \@addresses;
print form
<<'EOFORMAT',
Name: {[[[[[[[[[[[[[[[} Role: {[[[[[[[[[[}
Address: {[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[}
_______________________________________________
EOFORMAT
\@names, \@roles, \@addresses;
|
