"I do not usually like to mix ... But this should at least be on the right track."
I don't like to mix hardcoded HTML tags and CGI.pm methods
either, but i like what your code does. :) Here is another
version that only uses CGI.pm:
#!/usr/bin/perl -T
use strict;
use warnings;
use CGI::Pretty qw(:standard);
my @hour = qw(7am-8am 8am-9am 9am-10am 10am-11am);
my @day = qw(
Monday Tuesday Wednesday Thursday
Friday Saturday Sunday
);
print header,
start_html,
start_form,
table(
Tr(th[' ',@hour]),
map {
my $day = $_;
Tr(
th({align=>'right'},$_),
td[map checkbox("_$day",0,$_,''), @hour],
)
} @day
),
submit,
end_form,
h2('Values'),
ul(
map {
li(substr($_,1,length $_)) . ol(li[param($_)])
} grep {/^_/} param(),
),
end_html,
;
By appending an underscore to each of the names of the
check boxes, i can extract them out quite easily. This does,
however, complicate things when displaying those names
(hence the
substr call). Hope this helps. :)
jeffa
L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.