perl 定义post接口

最新推荐文章于 2020-12-06 15:01:08 发布

scan724

最新推荐文章于 2020-12-06 15:01:08 发布

阅读量934

点赞数

分类专栏： mojo

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

版权

mojo 专栏收录该内容

19 篇文章 ¥39.90 ¥99.00

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

[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;
+----------------------------

了解本专栏