StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
text
Body
copied!<p>For <a href="http://search.cpan.org" rel="nofollow noreferrer">CPAN</a> offerings have a look at the following (in alphabetical order)...</p> <ul> <li><a href="http://search.cpan.org/dist/Builder/" rel="nofollow noreferrer">Builder</a></li> <li><a href="http://search.cpan.org/dist/HTML-Tree/lib/HTML/AsSubs.pm" rel="nofollow noreferrer">HTML::AsSubs</a></li> <li><a href="http://search.cpan.org/dist/HTML-Tiny/" rel="nofollow noreferrer">HTML::Tiny</a></li> <li><a href="http://search.cpan.org/dist/Markapl/" rel="nofollow noreferrer">Markapl</a></li> <li><a href="http://search.cpan.org/dist/Template-Declare/" rel="nofollow noreferrer">Template::Declare</a></li> <li><a href="http://search.cpan.org/dist/XML-Generator/" rel="nofollow noreferrer">XML::Generator</a></li> </ul> <p>Using the table part of the CL-WHO example provided (minus Roman numerals and s/background-color/color/ to squeeze code into screen width here!)....</p> <p><br /></p> <h2>Builder</h2> <pre><code>use Builder; my $builder = Builder->new; my $h = $builder->block( 'Builder::XML' ); $h->table( { border => 0, cellpadding => 4 }, sub { for ( my $i = 1; $i < 25; $i += 5 ) { $h->tr( { align => 'right' }, sub { for my $j (0..4) { $h->td( { color => $j % 2 ? 'pink' : 'green' }, $i + $j ); } }); } }); say $builder->render; </code></pre> <p><br /></p> <h2>HTML::AsSubs</h2> <pre><code>use HTML::AsSubs; my $td = sub { my $i = shift; return map { td( { color => $_ % 2 ? 'pink' : 'green' }, $i + $_ ) } 0..4; }; say table( { border => 0, cellpadding => 4 }, map { &tr( { align => 'right' }, $td->( $_ ) ) } loop( below => 25, by => 5 ) )->as_HTML; </code></pre> <p><br /></p> <h2>HTML::Tiny</h2> <pre><code>use HTML::Tiny; my $h = HTML::Tiny->new; my $td = sub { my $i = shift; return map { $h->td( { 'color' => $_ % 2 ? 'pink' : 'green' }, $i + $_ ) } 0..4; }; say $h->table( { border => 0, cellpadding => 4 }, [ map { $h->tr( { align => 'right' }, [ $td->( $_ ) ] ) } loop( below => 25, by => 5 ) ] ); </code></pre> <p><br /></p> <h2>Markapl</h2> <pre><code>use Markapl; template 'MyTable' => sub { table ( border => 0, cellpadding => 4 ) { for ( my $i = 1; $i < 25; $i += 5 ) { row ( align => 'right' ) { for my $j ( 0.. 4 ) { td ( color => $j % 2 ? 'pink' : 'green' ) { $i + $j } } } } } }; print main->render( 'MyTable' ); </code></pre> <p><br /></p> <h2>Template::Declare</h2> <pre><code>package MyTemplates; use Template::Declare::Tags; use base 'Template::Declare'; template 'MyTable' => sub { table { attr { border => 0, cellpadding => 4 }; for ( my $i = 1; $i < 25; $i += 5 ) { row { attr { align => 'right' }; for my $j ( 0..4 ) { cell { attr { color => $j % 2 ? 'pink' : 'green' } outs $i + $j; } } } } } }; package main; use Template::Declare; Template::Declare->init( roots => ['MyTemplates'] ); print Template::Declare->show( 'MyTable' ); </code></pre> <p><br /></p> <h2>XML::Generator</h2> <pre><code>use XML::Generator; my $x = XML::Generator->new( pretty => 2 ); my $td = sub { my $i = shift; return map { $x->td( { 'color' => $_ % 2 ? 'pink' : 'green' }, $i + $_ ) } 0..4; }; say $x->table( { border => 0, cellpadding => 4 }, map { $x->tr( { align => 'right' }, $td->( $_ ) ) } loop( below => 25, by => 5 ) ); </code></pre> <p><br /> <em>And the following can be used to produce the "loop" in HTML::AsSubs / HTML::Tiny / XML::Generator examples....</em></p> <pre><code>sub loop { my ( %p ) = @_; my @list; for ( my $i = $p{start} || 1; $i < $p{below}; $i += $p{by} ) { push @list, $i; } return @list; } </code></pre>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload