Chinaunix

标题: 本人用Dancer框架写的个人网站源码（＋1.3011版代码） [打印本页]

---

作者: aef25u    时间: 2010-07-22 11:14
标题: 本人用Dancer框架写的个人网站源码（＋1.3011版代码）


因最近有人反映代码有问题，检查后发现是由于Dancer版本更新引起的：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Dancer最新版本－1.3011请下载此附件（2011-03-28更新）： MyDancer.rar (42.7 KB, 下载次数: 350)

2011-03-28 00:25 上传

点击文件名下载附件

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

这是本人用perl的Dancer+DBI+SQLite+TT实现的网站源码
此附件为旧版Dancer： dancer.rar (35.99 KB, 下载次数: 232)

2010-07-22 11:13 上传

点击文件名下载附件
dancer框架实现的网站源码

。

运行环境：Windows XP、strawberry perl、IE

实现了：
    1、Template::Toolkit、SQLite、Authen::Simple:BI、Dancer::Session::Storable在dancer框架中的简单运用。
    2、javascript+css实现二级导航栏
    3、网站Perl代码着色显示
    4、post方法的注册表单、登陆表单和留言本。

内附(位于dancer目录下)：
    start.bat  方便本机运行WEB服务器 (然后在IE中输入http://localhost:3000/)
    SQLite.pl  生成test.db数据库

1、dancer.pl

1. #!/usr/bin/perl
   
2. use DBI;
   
3. use Dancer;
   
4. use MyDancer;
   
5. use Dancer::Plugin::Database;
   
6. 
   
7. my @pages = qw(TtExample SqlExample  registerExample loginExample GuesBookExample configExample layoutTT);
   
8. 
   
9. #与use MyDancer等同;
   
10. #get '/', sub {
    
11. #    layout 'main.tt';
    
12. #    template 'home';
    
13. #};
    
14. 
    
15. get '/:page' => sub {
    
16.     layout 'main.tt';
    
17.     my ($page) = params->{page};
    
18.     pass and return false unless grep /$page/, @pages;
    
19.     template $page;
    
20. };
    
21. 
    
22. get '/tt/scalar', sub {
    
23.     layout 'main.tt';   
    
24.     template 'scalar' =>
    
25.       { content => '欢迎您的到来！希望你也会和我一样喜欢上Perl与Dancer！', };
    
26. };
    
27. 
    
28. get '/tt/table', sub {
    
29.     layout 'main.tt';
    
30.     my $r = [ { a => 1, b => 2, c => 3, },
    
31.               { a => 2, b => 4, c => 6, } ];
    
32.     template 'table' => { r => $r, };
    
33. };
    
34. 
    
35. get '/tt/filter', sub {
    
36.     layout 'main.tt';
    
37.     template 'filter';
    
38. };
    
39. 
    
40. get '/Sql/dbiSqlTest', sub {
    
41.     layout 'main.tt';
    
42.     my $dbh =
    
43.       DBI->connect( "dbi:SQLite:dbname=test.db",,,
    
44.         { RaiseError => 1, AutoCommit => 1 } );
    
45.     my $sth = $dbh->prepare( 'select * from test where id = 1' );
    
46.     $sth->execute;
    
47.     my @row_ary = $sth->fetchrow_array;
    
48.     template 'dbiSqlTest' => { head => 'use DBI', content => $row_ary[1], };
    
49. };
    
50. 
    
51. get '/Sql/PluginSqlTest', sub {
    
52.     layout 'main.tt';
    
53.     my $sth = database->prepare( 'select * from test where id = 1' );
    
54.     $sth->execute;
    
55.     my @row_ary = $sth->fetchrow_array;
    
56.     template 'PluginSqlTest',
    
57.       {
    
58.         head    => 'use Dancer::Plugin::Database',
    
59.         content => $row_ary[1],
    
60.       };
    
61. };
    
62. 
    
63. #表单注册
    
64. get '/book/register' => sub {
    
65.     layout 'login_main';
    
66.     template
    
67.       'register' => { path => 'GuestBook' },
    
68. 
    
69. };
    
70. 
    
71. post '/book/register' => sub {
    
72.     my $sth =
    
73.       database->prepare('SELECT * FROM authentication  WHERE username=?');
    
74.     $sth->execute( params->{username} );
    
75.     if ( $sth->fetch ) {
    
76.         return "User had been registered, sorry";
    
77.     }
    
78.     $sth = database->prepare('INSERT INTO authentication  VALUES(NULL,?,?,?)');
    
79.     $sth->execute(
    
80.         params->{username},
    
81.         params->{password},
    
82.         params->{fmemail},
    
83.     );
    
84. 
    
85.     session user => params->{username};
    
86.     redirect params->{path};
    
87. 
    
88. };
    
89. 
    
90. #GuestBook
    
91. get '/book/GuestBook' => sub {
    
92.     layout 'login_main';
    
93.     my @myarray;
    
94.     my $sth = database->prepare( 'select * from comments order by id asc' );
    
95.     $sth->execute;
    
96.     while(my @row_ary = $sth->fetchrow_array){
    
97.     push @myarray, { user => $row_ary[1], info => $row_ary[2] };
    
98.     }
    
99. 
    
100.     template 'GuestBook' => {message=>\@myarray};  
     
101. 
     
102. };
     
103. 
     
104. post '/book/GuestBook' => sub {
     
105.     my $username=session('user');
     
106.     if (length params->{fmmsg} > 4096) {
     
107.       return "Your comment is too long, sorry";
     
108.     }
     
109.     my $sth =
     
110.       database->prepare('INSERT INTO comments  VALUES(NULL,?,?)');
     
111.     $sth->execute(
     
112.       $username,
     
113.       params->{fmmsg},
     
114.     );
     
115.     session user => $username;
     
116.     redirect 'GuestBook';
     
117. 
     
118. };
     
119. 
     
120. #表单登陆
     
121. load_app 'Pamlogin';
     
122. 
     
123. dance;

复制代码

2、Pamlogin.pm

1. package Pamlogin;
   
2. use Authen::Simple::DBI;
   
3. use Dancer ':syntax';
   
4. 
   
5. # will match '/book/*'
   
6. prefix '/book';
   
7. 
   
8. # will match '/book/login'
   
9. get '/login' => sub {
   
10.     layout 'login_main';
    
11.     template
    
12.       'login' => { path => 'GuestBook' },
    
13. 
    
14. };
    
15. 
    
16. post '/login' => sub {
    
17. 
    
18.     my $dbi = Authen::Simple::DBI->new(
    
19.         dsn       => 'dbi:SQLite:dbname=test.db',
    
20.         statement => 'SELECT password FROM authentication WHERE username = ?'
    
21.     );
    
22. 
    
23.     if ( $dbi->authenticate( params->{username}, params->{password} ) ) {
    
24.         session user => params->{username};
    
25.         redirect params->{path};
    
26.     }
    
27.     else {
    
28.         redirect 'login';
    
29.     }
    
30. };
    
31. 
    
32. get '/logout' => sub {
    
33.     session->destroy;
    
34.     redirect 'GuestBook';
    
35. };
    
36. 
    
37. true;
    

复制代码

---

作者: 兰花仙子    时间: 2010-07-22 11:17
很好。。没用过dancer框架，下来学习下～～{:3_193:}

---

作者: aef25u    时间: 2010-07-22 11:21
回复 2# 兰花仙子


本人是门外汉，非计算机专业，学perl是兴趣，还请兰花仙子多多指教。

---

作者: ykredrum    时间: 2010-07-22 22:23
我晕，用cpan安装Dancer失败！
我好像试试

---

作者: pandaiam    时间: 2011-02-28 18:15
thanks a lot

---

作者: zhlong8    时间: 2011-02-28 18:16
good

---

作者: hp_truth    时间: 2011-03-01 09:33
多谢楼主分享， 好好学习

---

作者: iakuf    时间: 2011-03-01 10:28
太 tm 支持了，近来在让小弟翻译这个，打算项目中用这个

---

作者: suntoltti    时间: 2011-03-01 10:30
跑起来了，很好。谢谢分享

---

作者: txh_zyy    时间: 2011-03-01 11:39
我正在学Dancer，谢谢

---

作者: mitmax    时间: 2011-03-01 17:54
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: aef25u    时间: 2011-03-01 20:19


回复 11# mitmax

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

---

作者: mitmax    时间: 2011-03-03 11:35
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: aef25u    时间: 2011-03-04 16:58


回复 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    时间: 2011-03-27 19:10

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

复制代码

---

作者: aef25u    时间: 2011-03-27 20:21
回复 15# snriyt

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

---

作者: aef25u    时间: 2011-03-28 00:33


回复 15# snriyt

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

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

---

作者: snriyt    时间: 2011-03-28 19:10
ok

---

作者: snriyt    时间: 2011-03-28 19:25

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    时间: 2011-03-28 19:26
这个模块是我强制安装上的，安装时测试不通过，有问题不？

---

作者: longjinjiu    时间: 2011-03-28 22:00
Hi aef25u,
我也碰到"Template is needed by Dancer::Template::TemplateToolkit"错误,怎么解决呢.

---

作者: snriyt    时间: 2011-03-28 22:45
回复 21# longjinjiu

cpan  install Dancer::Template::TemplateToolkit

---

作者: longjinjiu    时间: 2011-03-28 23:04
问题是Dancer::Template::TemplateToolkit已经装上了

---

作者: 2gua    时间: 2011-03-29 08:18
嘢，还真有实践Dancer的，赞一个。

---

作者: aef25u    时间: 2011-03-29 18:24
回复 21# longjinjiu

cpan App::cpanminus
然后cpanm Template::Toolkit

---

作者: kingwmj    时间: 2011-03-29 21:48
高手啊。。学习了。

---

作者: 骡子先生    时间: 2011-03-30 16:25
我在ubuntu上搭建环境，报错。

Error 500
runtime error

Warning caught during route execution: Use of uninitialized value in concatenation (.) or string at /usr/local/share/perl/5.10.0/Dancer/Session/Storable.pm line 59.

/usr/local/share/perl/5.10.0/Dancer/Session/Storable.pm around line 59

56
57 sub session_file {
58     my ($id) = @_;
59     return path(
60         setting('session_dir'),
61         setting('session_name') . "_$id.stor"
62     );

Stack

main in app.pl l. 125
Dancer in /usr/local/share/perl/5.10.0/Dancer.pm l. 331
Dancer::Handler in /usr/local/share/perl/5.10.0/Dancer/Handler.pm l. 171
Dancer::Handler::Standalone in /usr/local/share/perl/5.10.0/Dancer/Handler/Standalone.pm l. 41
HTTP::Server::Simple in /usr/local/share/perl/5.10.0/HTTP/Server/Simple.pm l. 271
HTTP::Server::Simple in /usr/local/share/perl/5.10.0/HTTP/Server/Simple.pm l. 307
HTTP::Server::Simple in /usr/local/share/perl/5.10.0/HTTP/Server/Simple.pm l. 402
HTTP::Server::Simple:SGI in /usr/local/share/perl/5.10.0/HTTP/Server/Simple/PSGI.pm l. 103
HTTP::Server::Simple:SGI in /usr/local/share/perl/5.10.0/HTTP/Server/Simple/PSGI.pm l. 103
Dancer::Handler in /usr/local/share/perl/5.10.0/Dancer/Handler.pm l. 95
Dancer::Handler in /usr/local/share/perl/5.10.0/Dancer/Handler.pm l. 71
Dancer::Handler in /usr/local/share/perl/5.10.0/Dancer/Handler.pm l. 72
Dancer::Renderer in /usr/local/share/perl/5.10.0/Dancer/Renderer.pm l. 23
Dancer::Renderer in /usr/local/share/perl/5.10.0/Dancer/Renderer.pm l. 120
Dancer::Route in /usr/local/share/perl/5.10.0/Dancer/Route.pm l. 155
Dancer::Route in /usr/local/share/perl/5.10.0/Dancer/Route.pm l. 225
Dancer::Object in /usr/local/share/perl/5.10.0/Dancer/Object.pm l. 15
Dancer::Error in /usr/local/share/perl/5.10.0/Dancer/Error.pm l. 29
Dancer::Error in /usr/local/share/perl/5.10.0/Dancer/Error.pm l. 223

Settings

{
  engines  => {},
  plugins  => {
    Database  => {
      password  => 'Hidden (looks potentially sensitive)',
      dsn  => 'dbi:SQLite:dbname=test.db',
      dbi_params  => {
        AutoCommit  => '1',
        RaiseError  => '1'
      },
      username  => ''
    }
  },
  import_warnings  => 1,
  appname  => 'MyDancer',
  views  => '/home/zoomi/MyDancer/views',
  layout  => 'main.tt',
  session  => 'Storable',
  confdir  => '/home/zoomi/MyDancer',
  public  => '/home/zoomi/MyDancer/public',
  show_errors  => '1',
  session_dir  => '/home/zoomi/MyDancer/sessions',
  server  => '0.0.0.0',
  log  => 'core',
  daemon  => 0,
  logger  => 'console',
  warnings  => '1',
  template  => 'template_toolkit',
  access_log  => 1,
  traces  => 0,
  charset  => '',
  appdir  => '/home/zoomi/MyDancer',
  handlers  => {},
  port  => '3000',
  environment  => 'development',
  content_type  => 'text/html',
  apphandler  => 'Standalone',
  auto_reload  => '0'
}


Note: Values of 1 sensitive-looking keys hidden

Session

{
  id  => '443435309633286072277630253886202695'
}

Environment

{
  SCRIPT_NAME  => '',
  SERVER_NAME  => '0.0.0.0',
  'psgi.multiprocess'  => 0,
  HTTP_ACCEPT_ENCODING  => 'gzip,deflate',
  PATH_INFO  => '/',
  HTTP_CONNECTION  => 'keep-alive',
  CONTENT_LENGTH  => undef,
  REQUEST_METHOD  => 'GET',
  HTTP_ACCEPT  => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
  'psgi.multithread'  => 0,
  HTTP_ACCEPT_CHARSET  => 'GB2312,utf-8;q=0.7,*;q=0.7',
  QUERY_STRING  => '',
  HTTP_USER_AGENT  => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; zh-CN; rv:1.9.2.16) Gecko/20110319 Firefox/3.6.16',
  SERVER_PORT  => '3000',
  HTTP_COOKIE  => undef,
  HTTP_ACCEPT_LANGUAGE  => 'zh-cn,zh;q=0.5',
  REMOTE_ADDR  => '10.60.10.44',
  CONTENT_TYPE  => undef,
  HTTP_KEEP_ALIVE  => '115',
  SERVER_PROTOCOL  => 'HTTP/1.1',
  'psgi.streaming'  => 1,
  'psgi.errors'  => *::STDERR,
  REQUEST_URI  => '/',
  'psgi.version'  => [
    1,
    1
  ],
  'psgi.nonblocking'  => 0,
  'psgix.io'  => bless( \*Symbol::GEN16, 'FileHandle' ),
  'psgi.url_scheme'  => 'http',
  'psgi.run_once'  => 0,
  HTTP_HOST  => '10.60.30.24:3000',
  'psgi.input'  => $VAR1->{'psgix.io'}
}

Powered by Dancer 1.3020

---

作者: snriyt    时间: 2011-03-30 17:43
ls的跟我的错误一样

---

作者: billcool    时间: 2011-08-20 17:45
谢谢分享，有没有更详细的说明，拓补图

如,自己写的代码放在什么地方，然后TT在那..........

---

作者: zhlong8    时间: 2011-08-20 18:57

Hi aef25u,
我也碰到"Template is needed by Dancer::Template::TemplateToolkit"错误,怎么解决呢.
longjinjiu 发表于 2011-03-28 22:00

    你们几个都是 Template 模块没安装

---

作者: aef25u    时间: 2011-08-20 21:46

谢谢分享，有没有更详细的说明，拓补图

如,自己写的代码放在什么地方，然后TT在那..........
billcool 发表于 2011-08-20 17:45

跑起来后看网页上的内容，里边有描述，虽然不是很具体清晰，但有提到。

---

作者: iakuf    时间: 2011-08-20 23:19

嘢，还真有实践Dancer的，赞一个。
2gua 发表于 2011-03-29 08:18

现在见到不少应用在使用 Dancer 了。公司几个小项目都使用的这个

---

作者: iakuf    时间: 2011-08-20 23:21

跑起来后看网页上的内容，里边有描述，虽然不是很具体清晰，但有提到。
aef25u 发表于 2011-08-20 21:46

看看 TT 的基本教程。。。

最基本的，我们需要先创建一个应用，他是非常容易的，直接通过 dancer 的命令。这会生成一些常见的文件夹，都是你的应用所需要的。

$ dancer -a bookstore

下面我简单来讲一下一个 Web 应用所需要的文件夹的作用，这个 dancer -a 的命令都会帮你生成好



三个最常用的文件

    bookstore/lib/bookstore.pm  # 这个目录是我们最常用的，我们的程序就写在这个 lib 中,默认写在 bookstore.pm 中，dancer 会自动帮你建个 pm 文件和项目名一样的
    bookstore/config.yml            # 配置文件
    bookstore/bin/app.pl             # 应用启动时的启动文件，他会自动以模块加载你写的应用。默认 3000 端口

几个常用的目录

    bookstore/views                 # 标准 MVC 中的 view 模板就放这个目录
    bookstore/public/css          # public 是放静态文件的 css 中放 css
    bookstore/public/javascripts   # 这个是放 js 脚本的

---

作者: iakuf    时间: 2011-08-20 23:23

回复  longjinjiu

cpan  install Dancer::Template::TemplateToolkit
snriyt 发表于 2011-03-28 22:45

使用 cpanm 来安装 Dancer 吧,对这种项目和模块，使用 cpanm 无限的方便

1. cpanm Dancer::Template::TemplateToolkit

复制代码

---

作者: 2gua    时间: 2011-08-21 14:18

现在见到不少应用在使用 Dancer 了。公司几个小项目都使用的这个
iakuf 发表于 2011-08-20 23:19

    好，改天瞅瞅去。

---

作者: 515413928    时间: 2011-08-22 05:16
学习一下

---

作者: nixiaoweihunter    时间: 2011-11-05 11:22
最近也试了一下，有点问题，dancer用的是哪个WEB服务器？怎么修改3000的端口？

---

作者: qibotang    时间: 2012-02-10 10:38
谢谢 试试

---

作者: wendaozhe    时间: 2012-02-15 11:49
正在学习dancer，刚好用得着。

---

作者: 小perl    时间: 2012-04-18 20:36
注册时显示：Can't call method "run" on an undefined value at C:/strawberry/perl/site/lib/Dancer/Route.pm line 212.
212             return $next_route->run($request);

是什么原因呢？Perl版本是Strawberry Perl 5.14.2  ，WinXp

---

作者: jeromest    时间: 2012-05-03 11:20
回复 1# aef25u


    楼主，是否可以留下一个你的网络联系方式（比如QQ或者MSN），我最近在学习Dancer框架，但学校里面基本没人学习Perl，望楼主不吝赐教，谢谢了！

---

作者: jeromest    时间: 2012-05-03 11:52
回复 40# 小perl


    请问您的这个问题有解决吗？我也是用的草莓版本Perl，遇到同样的问题，但是现在没有得到解决，因为刚开始学习Perl，使用希望得到指导，谢谢啦！

---

作者: 小perl    时间: 2012-05-04 08:34
回复 42# jeromest


    还没有，我也只是门外汉。

---

作者: TimChern    时间: 2012-05-15 20:38
hi，最近在考虑是否从catalyst转到dancer，请问一下dancer能支持部署在iis上吗，看cpan上是不支持的

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2