utf8 flagな文字列をハッシュ - Yappo::タワシ

use strict; use warnings; use Digest::SHA1 (); use Digest::SHA (); use Perl6::Say; use Encode; my $data = '娘の大好きな番組は二人はプリキュアとお願いマイメロディです'; my $str = decode('utf8', $data); say $data; say $str; say "---"; say Digest::SHA::sha1_hex($data); say Digest::SHA::sha1_hex($str); say "---"; say Digest::SHA1::sha1_hex($data); say Digest::SHA1::sha1_hex($str); say '正式名称は「ふたりはプリキュア」& 「おねがいマイメロディ」' 娘の大好きな番組は二人は

[tokuhirom]

死ぬほうがただしい気がしますな