请教：这种类型Template::Toolkit怎么写？

骡子先生

我从数据库取数据，通过tt显示，但是只能显示引用地址，请教这种情况如何处理？我的代码如下

1. 
   
2. #!/usr/bin/perl
   
3. use Dancer;
   
4. use Data::Dumper;
   
5. use DBI;
   
6. use DBD::mysql;
   
7. 
   
8. get '/sql/dbisql', sub {
   
9.     my $host = '127.0.0.1';
   
10.     my $port = '3306';
    
11. 
    
12.     my $dbname = 'op_system';
    
13.     my $username = 'op_system';
    
14.     my $password = 'op_system';
    
15. 
    
16.     my $dbh = DBI->connect("DBI:mysql:database=$dbname;host=$host;port=$port", $username, $password, {RaiseError => 1, AutoCommit => 1});
    
17.     my $sth = $dbh->prepare("select * from dataCenter");
    
18.     $sth->execute;
    
19. 
    
20.     my $result = $sth->fetchall_hashref('id');
    
21. 
    
22.     #print Dumper $result;
    
23. 
    
24.     template 'dbisql',
    
25.     {
    
26.         head => 'use DBI',
    
27.         content => $result,
    
28.     };
    
29. };
    
30. 
    
31. dancer;
    
32. 
    

复制代码

数据结构如下

1. $VAR1 = {
   
2.           '1' => {
   
3.                    'bandwidth' => undef,
   
4.                    'telephone' => '010-2343244',
   
5.                    'ip' => undef,
   
6.                    'name' => '北京三元数据中心',
   
7.                    'address' => '北京朝阳区三元桥大厦3楼',
   
8.                    'id' => '1',
   
9.                    'zipcode' => '100038'
   
10.                  },
    
11.           '3' => {
    
12.                    'bandwidth' => undef,
    
13.                    'telephone' => '012-6436353',
    
14.                    'ip' => undef,
    
15.                    'name' => '天津数据中心',
    
16.                    'address' => '天津市海河区天津大厦2楼',
    
17.                    'id' => '3',
    
18.                    'zipcode' => '120003'
    
19.                  },
    
20.           '2' => {
    
21.                    'bandwidth' => undef,
    
22.                    'telephone' => '021-33232432',
    
23.                    'ip' => undef,
    
24.                    'name' => '上海静安数据中心',
    
25.                    'address' => '上海市静安区发展大厦19楼',
    
26.                    'id' => '2',
    
27.                    'zipcode' => '200032'
    
28.                  }
    
29.         };

复制代码

dbisql.tt

1. <h2><% head %></h2>
   
2. 
   
3. <% FOREACH row IN content -%>
   
4.    <% row %>
   
5. <% END %>

复制代码

显示结果

1. use DBI
   
2. HASH(0x62718f0) HASH(0x6271ae0) HASH(0x6269b10)

复制代码

骡子先生

回复 1# 骡子先生


已解决

用数据引用代替哈希引用
  my $result = $sth->fetchall_hashref('id'); =>  my $result = $sth->fetchall_arrayref();

1. <h2><% head %></h2>
   
2. 
   
3. <% FOREACH i IN content -%>
   
4.    <% FOREACH j IN i -%>
   
5.       <% j %>
   
6.    <% END %><br>
   
7. <% END %>

复制代码

1. use DBI
   
2. 1 北京三元数据中心 北京朝阳区三元桥大厦3楼 100038 010-2343244
   
3. 2 上海静安数据中心 上海市静安区发展大厦19楼 200032 021-33232432
   
4. 3 天津数据中心 天津市海河区天津大厦2楼 120003 012-6436353

复制代码

首天

收藏备用{:3_189:}

zhlong8

hash 有 hash 的用法，不会用可以查文档啊。http://template-toolkit.org/docs ... ash_Virtual_Methods