perl字符串MD5编码解决

2017-01-19 20:55:38来源:CSDN作者:qq_30170407人点击

上源码:


use utf8;

use Digest::MD5 qw(md5_hex);

use Encode::Locale qw($ENCODING_LOCALE_FS);

                           my $md5=encode("gbk",$md5);  #这里转的问题是 md5的方法与use utf8; 有冲突所以实测转gbk就可以入库

                                   $md5=md5_hex($md5);

                                  print  "md5码:".$md5."/n";

最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台