perl - 哈希键编码:为什么我会得到 Devel::Peek::Dump 两种不同的结果?

标签 perl encoding hash key

为什么我用 Devel::Peek::Dump 得到两个不同的结果?

#!/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 "m\303\274ller"\0 [UTF8 "m\x{fc}ller"]
  CUR = 7
  LEN = 8

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

最佳答案

这两个标量包含完全相同的字符串。唯一的区别仅在于字符串在内部的存储方式。

我的猜测是,当试图在散列中定位键时,键被规范化以使比较更容易。

关于perl - 哈希键编码:为什么我会得到 Devel::Peek::Dump 两种不同的结果?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8418496/

相关文章:

perl - 如果 perl -cw 发出警告,则设置退出状态

python - Go 等效于 Python 中的 decode ('hex' )

java - JExcel中的编码问题

c# - SHA512 托管哈希大小

c++ - 一个 16 位哈希函数

perl - Perl 中的这个语句有什么问题?

perl - LWP::UserAgent HTTP 基本身份验证

mysql,如何创建表并自动跟踪添加或删除行/表的用户

haskell - Haskell 中的 EAN13 条码编码 : How to test it?

perl - 哈希哈希的智能匹配运算符