perl – 哈希键编码：为什么我会在这里与Devel :: Peek ::转储两

发布时间：2020-12-15 21:33:18 所属栏目：大数据来源：网络整理

导读：为什么我会在这里与Devel :: Peek ::转储两个不同的结果？ #!/usr/bin/env perluse warnings;use 5.014;use utf8;binmode STDOUT,':encoding(utf-8)';use Devel::Peek;my %hash1 = ( 'müller' = 1 );say Dump $_ for keys %hash1;my %hash2;$hash2{'müller

为什么我会在这里与Devel :: Peek ::转储两个不同的结果？

#!/usr/bin/env perl
use warnings;
use 5.014;
use utf8;
binmode STDOUT,':encoding(utf-8)';
use Devel::Peek;

my %hash1 = ( 'müller' => 1 );
say Dump $_ for keys %hash1;

my %hash2;
$hash2{'müller'} = 1;
say Dump $_ for keys %hash2;

输出：

SV = PV(0x753270) at 0x76d230
  REFCNT = 2
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x759750 "m303274ller" [UTF8 "mx{fc}ller"]
  CUR = 7
  LEN = 8

SV = PV(0x753270) at 0x7d75a8
  REFCNT = 2
  FLAGS = (POK,FAKE,READONLY,pPOK)
  PV = 0x799110 "m374ller"
  CUR = 6
  LEN = 0

解决方法

这两个标量都包含完全相同的字符串.唯一的区别只在于如何在内部存储字符串.

我的猜测是,密钥被规范化,以便在尝试在哈希中找到密钥时使比较更容易.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!