На моей платформе Linux с 64-битной перекомпилированной perl
и терминалом Mac SSHing (я думаю, UTF-8). Я даю всю эту информацию на всякий случай, если она может быть актуальной.
# perl -e 'use Digest::MD5 qw/md5_hex/; print(md5_hex("alex@vi\n") ."\n");' 756e98065cb8cbf603a3dbef2afe9261 # perl -e 'use Digest::MD5 qw/md5_hex/; print(md5_hex("alex@visi\n") ."\n");' 756e98065cb8cbf603a3dbef2afe9261 # perl -e 'use Digest::MD5 qw/md5_hex/; print(md5_hex("alex@vision\n") ."\n");' 756e98065cb8cbf603a3dbef2afe9261 # perl -e 'use Digest::MD5 qw/md5_hex/; print(md5_hex("alex@visionten\n") ."\n");' 756e98065cb8cbf603a3dbef2afe9261 # perl -e 'use Digest::MD5 qw/md5_hex/; print(md5_hex("alex@visionten.\n") ."\n");' d32e04de6906b3f284c6834b4d1d77c1 # perl -e 'use Digest::MD5 qw/md5_hex/; print(md5_hex("alex@\n") ."\n");' 264eca1047ccc6272ac2e338c695379e
-Mstrict
, либо-w
в командной строке выявили бы проблему. - person Chris Johnsen   schedule 02.07.2010perl -MDigest::MD5=md5_hex -wE "say md5_hex(qq/alex\@vi\n/);"
- person dolmen   schedule 05.07.2010