Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
   ),
   map Tr(map td($_),@$_), @$sth
);
  2. or download this
    use DBI;
use CGI qw(header);
...
   </tr>
   [% END %]
</table>
  3. or download this
    use DBIx::XHTML_Table;
use CGI qw(header);
...
   ->map_cell(sub {my$e=shift;qq|<a href="mailto:$e">$e</a>|},'email')
   ->output
;