>>>>> "Mark" == Mark D Landry <[EMAIL PROTECTED]> writes:
Mark> # Schwartzstein-Bunce Transform
Mark> print table({-border=>undef},
Mark> caption('TableName'),
Mark> Tr(map(th($_), @{$sth->{NAME}})),
Mark> map(Tr(td($_)), @{$sth->fetchall_arrayref()}),
Mark> );
This code is SCARY, but I remember typing something like this.
Sorry. :) :)
It was before I knew that any of the HTML generators would take
an arrayref and autoapply themselves, so for example, we can replace:
Tr(map(th($_), @{$sth->{NAME}}))
with
Tr(th($sth->{NAME}))
Much cleaner. I'm not sure about the other one though. Ahh,
it looks like I'm already taking advantage of that. :)
Weird. I learned something I already knew. :)
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
