perl – 哈希键编码:为什么我会在这里与Devel :: Peek ::转储两个不同的结果?

前端之家收集整理的这篇文章主要介绍了perl – 哈希键编码:为什么我会在这里与Devel :: Peek ::转储两个不同的结果?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
为什么我会在这里与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 "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相关文章