[Moscow.pm] use utf8 & hashes

Sergey Homenkow hsw на hsw.pp.ru
Ср Фев 20 02:05:13 PST 2008


Приветствую!

Имеем perl v5.8.8 и код:

=====
use utf8;

my %s = (
     MaxAccountSize1   => 1,
     'MaxAccountSize2' => 1,
     );

foreach (sort keys %s) {
     print "'$_' ".U($_)." => '".$s{$_}."' ".U($s{$_})."\n";
}

sub U {
     return utf8::is_utf8($_[0])?'is_utf8':'not_utf8';
}
=====

Имеем результат:
'MaxAccountSize1' is_utf8 => '1' not_utf8
'MaxAccountSize2' not_utf8 => '1' not_utf8

Кто-нибудь может подсказать почему так получается с ключами хеша?

'-MO=Deparse' показывает:
my(%s) = ('MaxAccountSize1', 1, 'MaxAccountSize2', 1);
т.е. выглядят они одинаково.



Подробная информация о списке рассылки Moscow-pm