perl 定义post接口

最新推荐文章于 2022-04-06 11:46:50 发布

scan724

最新推荐文章于 2022-04-06 11:46:50 发布

阅读量944

点赞数

CC 4.0 BY-SA版权

分类专栏： mojo

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/52882220

mojo 专栏收录该内容

19 篇文章 ¥39.90 ¥99.00

订阅专栏

这篇博客演示了如何使用Perl的Mojolicious框架创建一个POST登录接口。通过MD5加密处理密码，然后连接到MySQL数据库验证用户名和密码的正确性。如果匹配，返回登录成功，否则登录失败。

[root@wx03 mojo]# cat a1.pl 
use Digest::MD5;
my $md5 = Digest::MD5->new;
$md5->add(1234567);
print $md5->hexdigest."\n";
[root@wx03 mojo]# perl a1.pl 
fcea920f7412b5da7be0cf42b8c93759


[root@wx03 mojo]# cat a1.pl 
use Digest::MD5;
my $md5 = Digest::MD5->new;
$md5->add(admin);
print $md5->hexdigest."\n";
[root@wx03 mojo]# perl a1.pl 
21232f297a57a5a743894a0e4a801fc3


[root@wx03 mojo]# cat a1.pl 
use Digest::MD5;
my $md5 = Digest::MD5->new;
$md5->add(admin);
my $pass= $md5->hexdigest;
print "\$pass is $pass\n";
[root@wx03 mojo]# perl a1.pl 
$pass is 21232f297a57a5a743894a0e4a801fc3




mysql> select md5('admin') from user;
+----------------------------------+
| md5('admin')                     |
+------------------------------

了解本专栏