[Perlメモ]PHPで書いた掲示板をMojolicious::Liteで書いてみる

Posted by kumacchi on 2011年10月20日 , No comment

20111489

この間PHPで書いた掲示板みたいなものをMojolicious::Liteで書いて見ました。

PHPで書いたソースとほぼ同じような感じです。こっちはデータベースファイルもなければ自動で作成するようになってます。

ソース bbs.pl

#!/usr/bin/env perl

package Model;
use strict;
use ORLite {
    file   => ‘bbs2.db’,
    create => sub {
        my $dbh = shift;
        $dbh->do(
            ‘CREATE TABLE bbs (
            no INTEGER NOT NULL PRIMARY KEY,
            pno INTEGER,
            name VARCHAR(128),
            title VARCHAR(128),
            comment VARCHAR(2000) NOT NULL,
            hp VARCHAR(256),
            email VARCHAR(128),
            ip VARCHAR(40) NOT NULL DEFAULT "",
            timestamp TIMESTAMP NOT NULL
            )’
        );

        # just use $dbh->do(…) if you need more
        # tables
        return 1;
    }
};

package main;
use utf8;
use Mojolicious::Lite;

my $cur_page = 1;
my $entry_per_page = 5;
my $cur_page = 1;
my $start_point = 0;

#get ‘/’ => ‘index’;

#get ‘/’ => sub {
# my $self = shift;
# $self->render(‘index’);
#};

get ‘/’ => sub {
my $self = shift;

#総記事数取得
my $total_entrys = Model::Bbs->count;

    #ページ指定あり
    if(defined $self->param(‘page’)){
        $cur_page = sprintf("%d",$self->param(‘page’));
        $cur_page = 1 if($cur_page < 1);
        $start_point = ($cur_page – 1) * $entry_per_page;
    }

    $self->stash(
        cur_page => $cur_page,
        entry_per_page => $entry_per_page,
        total_entrys => $total_entrys,
        bbs => [Model::Bbs->select(‘order by no desc limit ?,?’,$start_point,$entry_per_page)]
    );

} => ‘index’;

post ‘/’ => sub {
my $self = shift;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $now = sprintf("%04d-%02d-%02d %02d:%02d:%02d",$year+1900,$mon+1,$mday,$hour,$min,$sec);

    Model::Bbs->create(
        name => $self->param(‘name’),
        comment => $self->param(‘comment’),
        ip => ‘0.0.0.0’,
        timestamp => $now
    );

$self->redirect_to(‘/’);
};

app->start;

__DATA__
@@ index.html.ep
% use Encode qw/decode_utf8/;
% layout ‘default’;
<div id="header">
<h1>掲示板</h1>
</div>

    % foreach my $oneline(@{$bbs}){
<div class="entrys">
        <p class="entry_header">
            <%= sprintf("[%05d] %s %s さん",decode_utf8($oneline->no),decode_utf8($oneline->timestamp),decode_utf8($oneline->name)) %>
        </p>
        <p class="entry_body">
            <%= decode_utf8($oneline->comment) %>
        </p>
</div>
    % }

    <p class="page">
        % if ($cur_page > 1) {
            <a href="?page=<%= ($cur_page-1) %>">[next]</a>
        % }else{
            [next]
        % }
        % if ($total_entrys > ($cur_page * $entry_per_page)){
             <a href="?page=<%= ($cur_page+1) %>">[prev]</a>
        % }else{
            [prev]
        % }
    </p>
</div>

@@ layouts/default.html.ep
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html lang="ja">
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<meta http-equiv="content-style-type" content="text/css">
<meta http-equiv="content-script-type" content="text/javascript">
<meta name="description" content="掲示板">
<meta name="keywords" content="掲示板">
<title>掲示板</title>
<link rel="stylesheet" type="text/css" href="css/bbs.css">
</head>
<body>
<%= content %>
<div id="footer">2011 KUMA TYPE</div>
</body>
</html>

参考

メモ

[kumacchi@localhost bbs]$ mojo generate lite_app bbs.pl
[exist] /home/kumacchi/mojo/bbs
[write] /home/kumacchi/mojo/bbs/bbs.pl
[chmod] bbs.pl 744
[kumacchi@localhost bbs]$

perl -MCPAN -e shell

cpan[2]> install ORLite

(Visited 190 times, 1 visits today)

タグ : cgi, perl