Skip to content

Instantly share code, notes, and snippets.

@moznion

moznion/gist:9035772

Created February 16, 2014 15:07
Show Gist options
  • Save moznion/9035772 to your computer and use it in GitHub Desktop.
Save moznion/9035772 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.pl
#!/usr/bin/env perl
use strict;
use warnings;
use Digest::MD5;
use feature qw/say/;
my $str = 'foobar';
my $ctx = Digest::MD5->new;
$ctx->add($str);
say $ctx->hexdigest; # => 6df23dc03f9b54cc38a0fc1483df6e21 (ここはfoobarを元に計算してる)
say $ctx->hexdigest; # => d41d8cd98f00b204e9800998ecf8427e (ここは空文字を元に計算してる)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment