上源码:
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";