- 论坛徽章:
- 0
|
我写了段dancer数据库测试程序,如下
/lib/opsys.pm- package opsys;
- use Dancer ':syntax';
- use Dancer::Plugin::Database;
- use Data::Dumper;
- our $VERSION = '0.1';
- get '/' => sub {
- my $action = 'hello';
- my $id = 'world';
- template 'home.tt', { action => $action, id => $id, }, { layout => undef };
- };
- get '/server' => sub {
- my $action = params->{action};
- my $id = params->{id};
- my $sql = 'select * from server';
- my $sth = database->prepare($sql);
- $sth->execute();
- my $results = $sth->fetchall_arrayref();
- my $column_names = ["ID", "服务器编号", "主机名", "型号", "S/N", "快速服务ID"];
- #print Dumper \@listname;
- template 'server.tt', { action => $action, id => $id, column_names => $column_names, results => $results }, { layout => undef };
- };
- true;
复制代码 /views/server.tt- <title>server.tt</title>
- action = [% action %]<br>
- id = [% id %]<br>
- <table width="100%" cellspacing="0" cellpadding="0" border="1">
- <tr>
- [% FOREACH name IN column_names %]
- <th>[% name %]<th>
- [% END %]
- </tr>
- [% FOREACH row IN results %]
- <tr>
- [% FOREACH column IN row %]
- <td>[% column %]</td>
- [% END %]
- </tr>
- [% END %]
- </table>
复制代码 在浏览器中输入 http://127.0.0.1:3000/server?action=1&id=2
如截图,数组引用column_names利用template打印后,不对齐,我发现每个元素后面多了一个空值,但是我用dumper,发现数据是正常的,请协助!谢谢!
|
|