本人用Dancer框架写的个人网站源码（＋1.3011版代码）

aef25u

回复 11# mitmax

安装  Template::Toolkit，  使用时用<%   %>而非［%  % ］

aef25u

回复 13# mitmax

1. while ( $sth->fetchrow_array ) {
   
2. 
   
3.              $str .= { Type => "$Type", Ip => "$Monitor_Ipaddress", Name => "$ProjectName" } . ",";
   
4. 
   
5.         }
   
6. 
   
7. ......  
   
8. 
   
9.       template 'Mysqldatabase' => { Mysql =>[$str], head => 'use DBI' };

复制代码

以上有错，你试试这样行不行，以下代码未经测试(自已注意将{}补齐)：

1. my @srt;
   
2. 
   
3. while ( my @row_ary = $sth->fetchrow_array ) {
   
4.             
   
5.           push  @srt,{ Type => $row_ary[2], Ip => $row_ary[3], Name => $row_ary[4]} ;   
   
6.            #或push  @srt,{ Type => "$Type", Ip => "$Monitor_Ipaddress", Name => "$ProjectName" } ;
   
7. 
   
8.         }
   
9. ......
   
10.         #$re_srt做MysqlQuery()的返回值
    
11.         my $re_srt=\@srt;
    
12. ......  
    
13.      
    
14.       template 'Mysqldatabase' => { Mysql =>$status, head => 'use DBI' };
    
15.    

复制代码

snriyt

1. Use of uninitialized value in concatenation (.) or string at /usr/local/share/perl5/Dancer/Session/Storable.pm line 59.
   

复制代码

aef25u

回复 15# snriyt

模块内部错误，你用cpanm试着再装一下Dancer::Session::Storable。如果不行我也解决不了。
那你就将Dancer.pl数第2行load_app 'Pamlogin注释掉。不过这样留言本注册、登录相关页面就打不开了。

aef25u

回复 15# snriyt

检查了下是因为Dancer版本更新引起的错误，请重新下载网站源码，位于1楼的MyDancer附件。
启动文件与数据库文件都调整到：MyDancer/bin内了。

另网站内容仍为旧版Dancer建站的过程，与新版比可能会有差异，MyDancer附件中未做修改，所以仅供参考。

snriyt

ok

snriyt

1. Error 500
   
2. runtime error
   
3. 
   
4. Warning caught during route execution: Use of uninitialized value in concatenation (.) or string at /usr/local/share/perl5/Dancer/Session/Storable.pm line 59.
   
5. 
   
6. /usr/local/share/perl5/Dancer/Session/Storable.pm around line 59
   
7. 
   
8. 56
   
9. 57 sub session_file {
   
10. 58     my ($id) = @_;
    
11. 59     return path(
    
12. 60         setting('session_dir'),
    
13. 61         setting('session_name') . "_$id.stor"
    
14. 62     );
    

复制代码

snriyt

这个模块是我强制安装上的，安装时测试不通过，有问题不？