File: demo_interline.pl

package info (click to toggle)
libperl6-form-perl 0.090-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 584 kB
  • sloc: perl: 3,080; makefile: 8
file content (22 lines) | stat: -rwxr-xr-x 493 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
use Perl6::Form 'drill';

my @data = (
	{name=>'Smith', rank=>'PFC', num=>12345 },
	{name=>'Yeun',  rank=>'Corporal', num=>34521 },
	{name=>'Patton', rank=>'General', num=>00012 },
);

print form
	'      Rank Name         Serial Number',
	'{]]]]]]]]} {[[[[[[[[[}     {IIIII}',
	drill @data, [], [qw{rank name num}];

print "\n\n";

print form
	'      Rank Name         Serial Number',
	{under=>"="},
	'{]]]]]]]]} {[[[[[[[[[}     {IIIII}',
	drill @data, [], [qw{rank name num}];

print "\n\n";