2

在此处遵循舞者教程：

http://search.cpan.org/dist/Dancer/lib/Dancer/Tutorial.pod

我正在使用我自己的 sqlite3 数据库和这个模式

CREATE TABLE if not exists location (location_code TEXT PRIMARY KEY, name TEXT, stations INTEGER);
CREATE TABLE if not exists session (id INTEGER PRIMARY KEY, date TEXT, sessions INTEGER, location_code TEXT, FOREIGN KEY(location_code) REFERENCES location(location_code));

我的数据库的舞者代码（ helloWorld.pm ）：

package helloWorld;
use Dancer;
use DBI;
use File::Spec;
use File::Slurp;
use Template;

our $VERSION = '0.1';

set 'template' => 'template_toolkit';
set 'logger'   => 'console';

my $base_dir = qq(/home/automation/scripts/Area51/perl/dancer);

# database crap
sub connect_db {
 my $db = qw(/home/automation/scripts/Area51/perl/dancer/sessions.sqlite);
 my $dbh = DBI->connect("dbi:SQLite:dbname=$db", "", "",
   { RaiseError => 1, AutoCommit => 1 });
 return $dbh;
}

    sub init_db {
 my $db = connect_db();
 my $file = qq($base_dir/schema.sql);
 my $schema = read_file($file);
 $db->do($schema) or die $db->errstr;
    }

get '/' => sub {
 my $branch_code = qq(BPT);
 my $dbh = connect_db();
 my $sql = q(SELECT * FROM session);
 my $sth = $dbh->prepare($sql) or die $dbh->errstr;
 $sth->execute or die $dbh->errstr;
 my $key_field = q(id);
 template 'show_entries.tt', {
  'branch' => $branch_code,
  'data' => $sth->fetchall_hashref($key_field),
 };
};

init_db();
true;

尝试了网站上的示例模板，不起作用。

<% FOREACH id IN data.keys.nsort %>
  <li>Date is: <% data.$id.sessions %> </li>
<% END %>

生成页面但没有数据。由于控制台/cli中没有任何线索，我该如何解决这个问题？

* 更新 * 如果我将数据库代码更改为：

get '/' => sub {
    my $branch_code = qq(BPT);
    my $dbh = connect_db();
    my $sql = 'SELECT * FROM session';
    #my $sth = $dbh->prepare($sql) or die $dbh->errstr;
    #$sth->execute or die $dbh->errstr;
    #my $key_field = q(id);
    my $entries = $dbh->selectall_arrayref($sql,{});
    template 'show_entries.tt', {


'branch' => $branch_code,
        #'data' => $sth->fetchall_hashref('id'),
        'data' => @$entries,
    };
};

我从模板中的表格中得到一个结果。所以信息正在传递，但模板的语法不像描述的那样工作。这确实符合 Template Toolkit 语法。

谢谢

布布诺夫

编辑/解决方案**

David 让我想起了 Data::Dumper，它确认问题确实出在模板配置上。我在配置文件中注释掉了模板指令，认为它是多余的，因为它在代码本身中。错误的！！！它必须在 YAML 中配置。在配置中删除 octothorpe 会将所有内容设置为权限。现在我只是因为一开始就没有尝试 Data::Dumper 而感到尴尬。谢谢大卫！

4

1 回答 1

6

首先，确保你传递你认为你传递给模板的东西。

将 $sth->fetchall_hashref($key_field) 的结果分配给一个临时标量，然后用 Data::Dump 或 Data::Dumper 转储它（或参阅Dancer::Plugin::DebugDump以了解一种让它变得简单的方法） .

于 2011-01-15T11:53:32.433 回答