[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;
+----------------------------
perl 定义post接口
最新推荐文章于 2022-04-29 19:37:16 发布
这篇博客演示了如何使用Perl的Mojolicious框架创建一个POST登录接口。通过MD5加密处理密码,然后连接到MySQL数据库验证用户名和密码的正确性。如果匹配,返回登录成功,否则登录失败。
摘要由CSDN通过智能技术生成