perl 定义post接口

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