一个练习项目，好玩的bbs-perl-mojolicious

代码：

#! D:/software/Strawberry/perl/bin/perl.exe

BEGIN {
    push (@INC,'D:/workspace/studys/study_bbs');
}

use Mojolicious::Lite-signatures;
use utf8;
use Net::MySQL;
use Encode;
use POSIX;
use JSON qw/encode_json decode_json/;
use Digest;

our $pagesize = 20;
our $secretKey = 'saacac3423@21212';

sub getloginuserinfo{
    my $sessionId = shift;
    
    my $mysql = Net::MySQL->new(
        hostname => '127.0.0.1',
        port => '3306',
        database => 'my_bbs',
        user     => 'root',
        password => '123456'
    );
    $mysql->query("SET NAMES 'utf8mb4'");
    
    $mysql->query("SELECT id,username,nickname,addTime,sessionId FROM user where sessionId='".$sessionId."'");
    my $record_set = $mysql->create_record_iterator;
    
    my %row = ();
    while (my $ref = $record_set->each) {
        $ref->[1] = decode("utf-8", $ref->[1]);
        $ref->[2] = decode("utf-8", $ref->[2]);
        $row{"id"} = $ref->[0];
        $row{"username"} = $ref->[1];
        $row{"nickname"} = $ref->[2];
        $row{"addTime"} = $ref->[3];
    }
    
    return %row;
}

get '/' => sub ($c) {
    $c->render(text => "此站接口使用perl.mojolicious实现，<a href='api.html' target='_blank'>接口列表</a>");
};

get '/user/register' => sub ($c) {
    my $username = $c->param("username");
    my $password = $c->param("password");
    my $nickname = $c->param("nickname");
    my $passwordmd5 = Digest->new('MD5')->add($password)->hexdigest;
    $username = encode("utf-8", $username);
    $nickname = encode("utf-8", $nickname);
    
    my $mysql = Net::MySQL->new(
        hostname => '127.0.0.1',
        port => '3306',
        database => 'my_bbs',
        user     => 'root',
        password => '123456'
    );
    $mysql->query("SET NAMES 'utf8mb4'");
    
    $mysql->query("SELECT id,username,nickname,addTime FROM user where username='".$username."'");
    my $record_set = $mysql->create_record_iterator;
    
    my %row = ();
    while (my $ref = $record_set->each) {
        $ref->[1] = decode("utf-8", $ref->[1]);
        $ref->[2] = decode("utf-8", $ref->[2]);
        $ref->[3] = decode("utf-8", $ref->[3]);
        $row{"id"} = $ref->[0];
        $row{"username"} = $ref->[1];
        $row{"nickname"} = $ref->[2];
        $row{"addTime"} = $ref->[3];
    }
    
    my $insertid = 0;
    if(keys %row == 0){
        my $tmpstr = $secretKey . $row{"id"} . $row{"addTime"};
        my $sessionId = Digest->new('MD5')->add($tmpstr)->hexdigest;
        $mysql->query("insert into user(username, password, nickname) value('".$username."', '".$passwordmd5."', '".$nickname."')");
        $insertid = $mysql->get_insert_id();
    
        my $res_data = {'code' => 0, 'msg' => '', 'data' => $insertid};
        $c->render(json => $res_data);
    }
    else{
        my $res_data = {'code' => 1, 'msg' => '用户名已经存在', 'data' => 0};
        $c->render(json => $res_data);
    }
};

get '/user/login' => sub ($c) {
    my $username = $c->param("username");
    my $password = $c->param("password");
    my $passwordmd5 = Digest->new('MD5')->add($password)->hexdigest;
    
    my $mysql = Net::MySQL->new(
        hostname => '127.0.0.1',
        port => '3306',
        database => 'my_bbs',
        user     => 'root',
        password => '123456'
    );
    $mysql->query("SET NAMES 'utf8mb4'");
    
    $mysql->query("SELECT id,username,nickname,addTime FROM user where username='".$username."' and password='".$passwordmd5."'");
    my $record_set = $mysql->create_record_iterator;
    
    my %row = ();
    while (my $ref = $record_set->each) {
        $ref->[1] = decode("utf-8", $ref->[1]);
        $ref->[2] = decode("utf-8", $ref->[2]);
        $ref->[3] = decode("utf-8", $ref->[3]);
        $row{"id"} = $ref->[0];
        $row{"username"} = $ref->[1];
        $row{"nickname"} = $ref->[2];
        $row{"addTime"} = $ref->[3];
    }
    
    my $res_data;
    if(keys %row != 0){
        my $tmpstr = $secretKey . $row{"id"} . $row{"addTime"};
        my $sessionId = Digest->new('MD5')->add($tmpstr)->hexdigest;
        $mysql->query("update user set sessionId='".$sessionId."' where id=".$row{"id"});
        $row{"sessionId"} = $sessionId;
        $res_data = {'code' => 0, 'msg' => '', 'data' => \%row};
    }
    else{
        $res_data = {'code' => 1, 'msg' => '用户名或者密码错误', 'data' => ''};
    }
    
    $c->render(json => $res_data);
};

get '/user/logout' => sub ($c) {
    my $sessionId = $c->param("sessionId");
    my %row = getloginuserinfo($sessionId);
    
    my $mysql = Net::MySQL->new(
        hostname => '127.0.0.1',
        port => '3306',
        database => 'my_bbs',
        user     => 'root',
        password => '123456'
    );
    $mysql->query("SET NAMES 'utf8mb4'");
    
    if(keys %row != 0){
        $mysql->query("update user set sessionId='' where sessionId=".$sessionId);
        $row{"sessionId"} = '';
    }
    
    my $res_data = {'code' => 0, 'msg' => '', 'data' => \%row};
    $c->render(json => $res_data);
};

get '/user/getuserinfo' => sub ($c) {
    my $sessionId = $c->param("sessionId");
    my %row = getloginuserinfo($sessionId);
    
    my $res_data = {'code' => 0, 'msg' => '', 'data' => \%row};
    $c->render(json => $res_data);
};

get '/post/list' => sub ($c) {
    my $page = $c->param("page");
    if(!$page){
        $page = 1;
    }
    my $keyword = $c->param("keyword");
    my $start = ($page - 1) * $pagesize;
    
    my $mysql = Net::MySQL->new(
        hostname => '127.0.0.1',
        port => '3306',
        database => 'my_bbs',
        user     => 'root',
        password => '123456'
    );
    $mysql->query("SET NAMES 'utf8mb4'");
    
    my $addsql = " isDel=0 ";
    if($keyword){
        $addsql = " isDel=0 and title like '%".$keyword."%' ";
    }
    
    $mysql->query("SELECT count(1) as count FROM content where ".$addsql);
    my $record_set = $mysql->create_record_iterator;
    my $count = 0;
    while (my $ref = $record_set->each) {
        $count = $ref->[0];
    }
    my $totalpage = int(ceil($count / $pagesize));
    
    $mysql->query("SELECT id,title,userNickename,replyNum,updateTime,userId FROM content where ".$addsql." order by updateTime desc limit ".$start.",".$pagesize);
    $record_set = $mysql->create_record_iterator;
    
    my @post_lists = ();
    while (my $ref = $record_set->each) {
        $ref->[1] = decode("utf-8", $ref->[1]);
        $ref->[2] = decode("utf-8", $ref->[2]);
        $ref->[4] = decode("utf-8", $ref->[4]);
        push(@post_lists, {"id" => $ref->[0], "title" => $ref->[1], "userNickename" => $ref->[2], "replyNum" => $ref->[3], "updateTime" => $ref->[4], "userId" => $ref->[5]})
    }
    
    my $res_data = {'code' => 0, 'msg' => '', 'data' => {'totalpage' => $totalpage, 'data' => \@post_lists}};
    $c->render(json => $res_data);
};

get '/post/detail' => sub ($c) {
    my $id = $c->param("id");
    
    my $mysql = Net::MySQL->new(
        hostname => '127.0.0.1',
        port => '3306',
        database => 'my_bbs',
        user     => 'root',
        password => '123456'
    );
    $mysql->query("SET NAMES 'utf8mb4'");
    
    $mysql->query("SELECT id,title,content,userId,userNickename,replyNum,updateTime FROM content where id='".$id."'");
    my $record_set = $mysql->create_record_iterator;
    
    my %row = ();
    while (my $ref = $record_set->each) {
        $ref->[1] = decode("utf-8", $ref->[1]);
        $ref->[2] = decode("utf-8", $ref->[2]);
        $ref->[4] = decode("utf-8", $ref->[4]);
        $ref->[6] = decode("utf-8", $ref->[6]);
        $row{"id"} = $ref->[0];
        $row{"title"} = $ref->[1];
        $row{"content"} = $ref->[2];
        $row{"userId"} = $ref->[3];
        $row{"userNickename"} = $ref->[4];
        $row{"replyNum"} = $ref->[5];
        $row{"updateTime"} = $ref->[6];
    }
    
    my $res_data = {'code' => 0, 'msg' => '', 'data' => \%row};
    $c->render(json => $res_data);
};

get '/post/add' => sub ($c) {
    my $title = $c->param("title");
    my $content = $c->param("content");
    my $sessionId = $c->param("sessionId");
    
    $title = encode("utf-8", $title);
    $content = encode("utf-8", $content);
    my %userInfo = getloginuserinfo($sessionId);
    my $userId = $userInfo{"id"};
    my $nickname = $userInfo{"nickname"};
    $nickname = encode("utf-8", $nickname);
    
    my $mysql = Net::MySQL->new(
        hostname => '127.0.0.1',
        port => '3306',
        database => 'my_bbs',
        user     => 'root',
        password => '123456'
    );
    $mysql->query("SET NAMES 'utf8mb4'");
    
    $mysql->query("insert into content(title, content, userId, userNickename) value('".$title."', '".$content."', ".$userId.", '".$nickname."')");
    my $insertid = $mysql->get_insert_id();
    
    my $res_data = {'code' => 0, 'msg' => '', 'data' => $insertid};
    $c->render(json => $res_data);
};

get '/post/edit' => sub ($c) {
    my $id = $c->param("id");
    my $title = $c->param("title");
    my $content = $c->param("content");
    my $sessionId = $c->param("sessionId");
    
    $title = encode("utf-8", $title);
    $content = encode("utf-8", $content);
    my %userInfo = getloginuserinfo($sessionId);
    my $userId = $userInfo{"id"};
    my $nickname = $userInfo{"nickname"};
    $nickname = encode("utf-8", $nickname);
    
    my $mysql = Net::MySQL->new(
        hostname => '127.0.0.1',
        port => '3306',
        database => 'my_bbs',
        user     => 'root',
        password => '123456'
    );
    $mysql->query("SET NAMES 'utf8mb4'");
    
    $mysql->query("update content set title='".$title."',content='".$content."',userId=".$userId.",userNickename='".$nickname."' where id=".$id." and userId=".$userId);
    
    my $res_data = {'code' => 0, 'msg' => '', 'data' => ''};
    $c->render(json => $res_data);
};

get '/post/delete' => sub ($c) {
    my $id = $c->param("id");
    my $sessionId = $c->param("sessionId");
    
    my %userInfo = getloginuserinfo($sessionId);
    my $userId = $userInfo{"id"};
    my $nickname = $userInfo{"nickname"};
    $nickname = encode("utf-8", $nickname);
    
    my $mysql = Net::MySQL->new(
        hostname => '127.0.0.1',
        port => '3306',
        database => 'my_bbs',
        user     => 'root',
        password => '123456'
    );
    $mysql->query("SET NAMES 'utf8mb4'");
    
    $mysql->query("update content set isDel=1 where id=".$id." and userId=".$userId);
    
    my $res_data = {'code' => 0, 'msg' => '', 'data' => ''};
    $c->render(json => $res_data);
};

get '/reply/list' => sub ($c) {
    my $page = $c->param("page");
    my $contentId = $c->param("contentId");
    if(!$page){
        $page = 1;
    }
    my $start = ($page - 1) * $pagesize;
    
    my $mysql = Net::MySQL->new(
        hostname => '127.0.0.1',
        port => '3306',
        database => 'my_bbs',
        user     => 'root',
        password => '123456'
    );
    $mysql->query("SET NAMES 'utf8mb4'");
    
    my $addsql = " isDel=0 and contentId=".$contentId." ";
    
    $mysql->query("SELECT count(1) as count FROM reply where ".$addsql);
    my $record_set = $mysql->create_record_iterator;
    my $count = 0;
    while (my $ref = $record_set->each) {
        $count = $ref->[0];
    }
    my $totalpage = int(ceil($count / $pagesize));
    
    $mysql->query("SELECT id,content,replyUserId,replyUserNickename,addTime FROM reply where ".$addsql." order by id asc limit ".$start.",".$pagesize);
    $record_set = $mysql->create_record_iterator;
    
    my @post_lists = ();
    while (my $ref = $record_set->each) {
        $ref->[1] = decode("utf-8", $ref->[1]);
        $ref->[3] = decode("utf-8", $ref->[3]);
        $ref->[4] = decode("utf-8", $ref->[4]);
        push(@post_lists, {"id" => $ref->[0], "content" => $ref->[1], "replyUserId" => $ref->[2], "replyUserNickename" => $ref->[3], "addTime" => $ref->[4]})
    }
    
    my $res_data = {'code' => 0, 'msg' => '', 'data' => {'totalpage' => $totalpage, 'data' => \@post_lists}};
    $c->render(json => $res_data);
};

get '/reply/detail' => sub ($c) {
    my $id = $c->param("id");
    
    my $mysql = Net::MySQL->new(
        hostname => '127.0.0.1',
        port => '3306',
        database => 'my_bbs',
        user     => 'root',
        password => '123456'
    );
    $mysql->query("SET NAMES 'utf8mb4'");
    
    $mysql->query("SELECT id,content,replyUserId,replyUserNickename,addTime FROM reply where id='".$id."'");
    my $record_set = $mysql->create_record_iterator;
    
    my %row = ();
    while (my $ref = $record_set->each) {
        $ref->[1] = decode("utf-8", $ref->[1]);
        $ref->[3] = decode("utf-8", $ref->[3]);
        $ref->[4] = decode("utf-8", $ref->[4]);
        $row{"id"} = $ref->[0];
        $row{"content"} = $ref->[1];
        $row{"replyUserId"} = $ref->[2];
        $row{"replyUserNickename"} = $ref->[3];
        $row{"addTime"} = $ref->[4];
    }
    
    my $res_data = {'code' => 0, 'msg' => '', 'data' => \%row};
    $c->render(json => $res_data);
};

get '/reply/add' => sub ($c) {
    my $contentId = $c->param("contentId");
    my $content = $c->param("content");
    my $sessionId = $c->param("sessionId");
    $content = encode("utf-8", $content);
    
    my %userInfo = getloginuserinfo($sessionId);
    my $userId = $userInfo{"id"};
    my $nickname = $userInfo{"nickname"};
    $nickname = encode("utf-8", $nickname);
    
    my $mysql = Net::MySQL->new(
        hostname => '127.0.0.1',
        port => '3306',
        database => 'my_bbs',
        user     => 'root',
        password => '123456'
    );
    $mysql->query("SET NAMES 'utf8mb4'");
    
    $mysql->query("update content set replyNum=replyNum+1 where id=".$contentId);
    $mysql->query("insert into reply(contentId, content, replyUserId, replyUserNickename) value(".$contentId.", '".$content."', ".$userId.", '".$nickname."')");
    my $insertid = $mysql->get_insert_id();
    
    my $res_data = {'code' => 0, 'msg' => '', 'data' => $insertid};
    $c->render(json => $res_data);
};

get '/reply/edit' => sub ($c) {
    my $id = $c->param("id");
    my $content = $c->param("content");
    my $sessionId = $c->param("sessionId");
    $content = encode("utf-8", $content);
    
    my %userInfo = getloginuserinfo($sessionId);
    my $userId = $userInfo{"id"};
    my $nickname = $userInfo{"nickname"};
    $nickname = encode("utf-8", $nickname);
    
    my $mysql = Net::MySQL->new(
        hostname => '127.0.0.1',
        port => '3306',
        database => 'my_bbs',
        user     => 'root',
        password => '123456'
    );
    $mysql->query("SET NAMES 'utf8mb4'");
    
    $mysql->query("update reply set content='".$content."',replyUserId=".$userId.",replyUserNickename='".$nickname."' where id=".$id." and replyUserId=".$userId);
    
    my $res_data = {'code' => 0, 'msg' => '', 'data' => ''};
    $c->render(json => $res_data);
};

get '/reply/delete' => sub ($c) {
    my $id = $c->param("id");
    my $sessionId = $c->param("sessionId");
    
    my %userInfo = getloginuserinfo($sessionId);
    my $userId = $userInfo{"id"};
    my $nickname = $userInfo{"nickname"};
    $nickname = encode("utf-8", $nickname);
    
    my $mysql = Net::MySQL->new(
        hostname => '127.0.0.1',
        port => '3306',
        database => 'my_bbs',
        user     => 'root',
        password => '123456'
    );
    $mysql->query("SET NAMES 'utf8mb4'");
    
    $mysql->query("SELECT id,content,replyUserId,replyUserNickename,addTime,contentId FROM reply where id='".$id."'");
    my $record_set = $mysql->create_record_iterator;
    
    my %row = ();
    while (my $ref = $record_set->each) {
        $ref->[1] = decode("utf-8", $ref->[1]);
        $ref->[3] = decode("utf-8", $ref->[3]);
        $ref->[4] = decode("utf-8", $ref->[4]);
        $row{"id"} = $ref->[0];
        $row{"content"} = $ref->[1];
        $row{"replyUserId"} = $ref->[2];
        $row{"replyUserNickename"} = $ref->[3];
        $row{"addTime"} = $ref->[4];
        $row{"contentId"} = $ref->[5];
    }
    
    $mysql->query("update content set replyNum=replyNum-1 where id=".$row{"contentId"});
    $mysql->query("update reply set isDel=1 where id=".$id." and replyUserId=".$userId);
    
    my $res_data = {'code' => 0, 'msg' => '', 'data' => ''};
    $c->render(json => $res_data);
};

app->start('daemon', '-l', 'http://*:1082');

 

输出：

D:\workspace\studys\study_bbs>D:\software\Strawberry\perl\bin\perl.exe D:\workspace\studys\study_bbs\start_web_mojolicious.pl
[2024-09-02 14:17:42.23334] [1712] [info] Listening at "http://*:1082"
Web application available at http://127.0.0.1:1082