in reply to Headings in Perl6::Form
#! /usr/bin/perl -w use strict; use 5.010; use Perl6::Form; my @last = qw(Smith Jones Wright Wong Evans McFee Ho Nuygen Willians H +owlett Jones Peters Milford Tam Lam Soma Egon Wilson); my @first = qw(Jim Jack Wendy Lee Bo Lenord Jan Dana Lindy Kyle Nora J +ane Bill Woo John Mick Lazlo Jenna); my @mid = qw{A B C D E F G H I J K L M N O P Q R}; my @suf = ("") x 18; my @nick = qw(Jim Jack Wendy Lee Bo Lenord Jan Dana Lindy Kyle Nora Ja +ne Bill Woo John Mick Lazlo Jenna); my @ID = 1..18; print form { page => { length => 10, number => 1, feed => "\f", footer => "\n", header => { first => "================================ +=====================================\n" . "| xxxxxxxxxxxx +xxxxxxxxxxxxxxxx |\n" . "| xxxxxxxxxx +xxxxxxxxxxxx |\n" . "| + |\n" . "| List +of Players |\n" . "|=============================== +====================================|\n" . "|Last |First + |MI|Suffix|Nickname | ID|\n" . "|_______________________________ +____________________________________|", other => "================================ +=====================================\n" . "| List +of Players |\n" . "|=============================== +====================================|\n" . "|Last |First + |MI|Suffix|Nickname | ID|\n" . "|------------------------------- +------------------------------------|", } } }, "| {]]]]]]]]]]]]]]]]} | {]]]]]]]]]]]]]]]]} |{}| {II} | {]]]]]]} | +{} |\n", \@last, \@first, \@mid,\@suf, \@nick, \ +@ID;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Headings in Perl6::Form
by BigJerry (Initiate) on Aug 28, 2011 at 03:35 UTC | |
by Anonymous Monk on Aug 28, 2011 at 08:07 UTC | |
by BigJerry (Initiate) on Aug 28, 2011 at 23:36 UTC |