| Код |
#!/usr/bin/perl
use v5.10;
use strict;
use utf8;
use XML::Simple;
use Encode;
#binmode STDOUT, ':utf8';
use Data::Dumper;
{
local $/;
my $xml = <DATA>;
utf8::encode($xml);
my $res = XMLin($xml);
say Dumper $res;
for my $city (@{$res->{Branch}}) {
#say "utf8=", utf8::is_utf8($city->{Name}), "; ", $city->{Name};
}
}
__DATA__
<Branches>
<Branch Name="Санкт-Петербург" />
<Branch Name="Москва" />
<Branch Name="Омск" />
<Branch Name="Новосибирск" />
<Branch Name="Екатеринбург" />
<Branch Name="Томск" />
<Branch Name="Кемерово" />
<Branch Name="Барнаул" />
<Branch Name="Красноярск" />
<Branch Name="Новокузнецк" />
<Branch Name="Астрахань" />
<Branch Name="Курган" />
<Branch Name="Иркутск" />
<Branch Name="Челябинск" />
<Branch Name="Астана" />
<Branch Name="Тюмень" />
<Branch Name="Нижневартовск" />
<Branch Name="Ростов-на-Дону" />
<Branch Name="Одесса" />
<Branch Name="Пермь" />
<Branch Name="Казань" />
<Branch Name="Уфа" />
<Branch Name="Самара" />
<Branch Name="Нижний Новгород" />
<Branch Name="Бийск" />
<Branch Name="Тольятти" />
<Branch Name="Краснодар" />
<Branch Name="Владивосток" />
<Branch Name="Магнитогорск" />
<Branch Name="Горно-Алтайск" />
<Branch Name="Набережные Челны" />
<Branch Name="Ярославль" />
<Branch Name="Волгоград" />
<Branch Name="Воронеж" />
<Branch Name="Сочи" />
<Branch Name="Саратов" />
<Branch Name="Рязань" />
<Branch Name="Хабаровск" />
<Branch Name="Алматы" />
<Branch Name="Кострома" />
<Branch Name="Падуя" />
<Branch Name="Тула" />
<Branch Name="Улан-Удэ" />
<Branch Name="Сургут" />
<Branch Name="Ижевск" />
<Branch Name="Калининград" />
<Branch Name="Пенза" />
<Branch Name="Нижний Тагил" />
<Branch Name="Белгород" />
<Branch Name="Тверь" />
<Branch Name="Оренбург" />
<Branch Name="Благовещенск" />
<Branch Name="Братск" />
<Branch Name="Архангельск" />
<Branch Name="Якутск" />
<Branch Name="Чебоксары" />
<Branch Name="Стерлитамак" />
<Branch Name="Абакан" />
<Branch Name="Липецк" />
<Branch Name="Ульяновск" />
<Branch Name="Киров" />
<Branch Name="Ставрополь" />
</Branches>
|
| Код |
$VAR1 = {
'Branch' => [
{
'Name' => "\x{421}\x{430}\x{43d}\x{43a}\x{442}-\x{41f}\x{435}\x{442}\x{435}\x{440}\x{431}\x{443}\x{440}\x{433}"
},
{
'Name' => "\x{41c}\x{43e}\x{441}\x{43a}\x{432}\x{430}"
},
{
'Name' => "\x{41e}\x{43c}\x{441}\x{43a}"
},
{
'Name' => "\x{41d}\x{43e}\x{432}\x{43e}\x{441}\x{438}\x{431}\x{438}\x{440}\x{441}\x{43a}"
},
{
'Name' => "\x{415}\x{43a}\x{430}\x{442}\x{435}\x{440}\x{438}\x{43d}\x{431}\x{443}\x{440}\x{433}"
},
{
'Name' => "\x{422}\x{43e}\x{43c}\x{441}\x{43a}"
},
{
'Name' => "\x{41a}\x{435}\x{43c}\x{435}\x{440}\x{43e}\x{432}\x{43e}"
},
{
'Name' => "\x{411}\x{430}\x{440}\x{43d}\x{430}\x{443}\x{43b}"
},
{
'Name' => "\x{41a}\x{440}\x{430}\x{441}\x{43d}\x{43e}\x{44f}\x{440}\x{441}\x{43a}"
},
{
'Name' => "\x{41d}\x{43e}\x{432}\x{43e}\x{43a}\x{443}\x{437}\x{43d}\x{435}\x{446}\x{43a}"
},
{
'Name' => "\x{410}\x{441}\x{442}\x{440}\x{430}\x{445}\x{430}\x{43d}\x{44c}"
},
{
'Name' => "\x{41a}\x{443}\x{440}\x{433}\x{430}\x{43d}"
},
{
'Name' => "\x{418}\x{440}\x{43a}\x{443}\x{442}\x{441}\x{43a}"
},
{
'Name' => "\x{427}\x{435}\x{43b}\x{44f}\x{431}\x{438}\x{43d}\x{441}\x{43a}"
},
{
'Name' => "\x{410}\x{441}\x{442}\x{430}\x{43d}\x{430}"
},
{
'Name' => "\x{422}\x{44e}\x{43c}\x{435}\x{43d}\x{44c}"
},
{
'Name' => "\x{41d}\x{438}\x{436}\x{43d}\x{435}\x{432}\x{430}\x{440}\x{442}\x{43e}\x{432}\x{441}\x{43a}"
},
{
'Name' => "\x{420}\x{43e}\x{441}\x{442}\x{43e}\x{432}-\x{43d}\x{430}-\x{414}\x{43e}\x{43d}\x{443}"
},
{
'Name' => "\x{41e}\x{434}\x{435}\x{441}\x{441}\x{430}"
},
{
'Name' => "\x{41f}\x{435}\x{440}\x{43c}\x{44c}"
},
{
'Name' => "\x{41a}\x{430}\x{437}\x{430}\x{43d}\x{44c}"
},
{
'Name' => "\x{423}\x{444}\x{430}"
},
{
'Name' => "\x{421}\x{430}\x{43c}\x{430}\x{440}\x{430}"
},
{
'Name' => "\x{41d}\x{438}\x{436}\x{43d}\x{438}\x{439} \x{41d}\x{43e}\x{432}\x{433}\x{43e}\x{440}\x{43e}\x{434}"
},
{
'Name' => "\x{411}\x{438}\x{439}\x{441}\x{43a}"
},
{
'Name' => "\x{422}\x{43e}\x{43b}\x{44c}\x{44f}\x{442}\x{442}\x{438}"
},
{
'Name' => "\x{41a}\x{440}\x{430}\x{441}\x{43d}\x{43e}\x{434}\x{430}\x{440}"
},
{
'Name' => "\x{412}\x{43b}\x{430}\x{434}\x{438}\x{432}\x{43e}\x{441}\x{442}\x{43e}\x{43a}"
},
{
'Name' => "\x{41c}\x{430}\x{433}\x{43d}\x{438}\x{442}\x{43e}\x{433}\x{43e}\x{440}\x{441}\x{43a}"
},
{
'Name' => "\x{413}\x{43e}\x{440}\x{43d}\x{43e}-\x{410}\x{43b}\x{442}\x{430}\x{439}\x{441}\x{43a}"
},
{
'Name' => "\x{41d}\x{430}\x{431}\x{435}\x{440}\x{435}\x{436}\x{43d}\x{44b}\x{435} \x{427}\x{435}\x{43b}\x{43d}\x{44b}"
},
{
'Name' => "\x{42f}\x{440}\x{43e}\x{441}\x{43b}\x{430}\x{432}\x{43b}\x{44c}"
},
{
'Name' => "\x{412}\x{43e}\x{43b}\x{433}\x{43e}\x{433}\x{440}\x{430}\x{434}"
},
{
'Name' => "\x{412}\x{43e}\x{440}\x{43e}\x{43d}\x{435}\x{436}"
},
{
'Name' => "\x{421}\x{43e}\x{447}\x{438}"
},
{
'Name' => "\x{421}\x{430}\x{440}\x{430}\x{442}\x{43e}\x{432}"
},
{
'Name' => "\x{420}\x{44f}\x{437}\x{430}\x{43d}\x{44c}"
},
{
'Name' => "\x{425}\x{430}\x{431}\x{430}\x{440}\x{43e}\x{432}\x{441}\x{43a}"
},
{
'Name' => "\x{410}\x{43b}\x{43c}\x{430}\x{442}\x{44b}"
},
{
'Name' => "\x{41a}\x{43e}\x{441}\x{442}\x{440}\x{43e}\x{43c}\x{430}"
},
{
'Name' => "\x{41f}\x{430}\x{434}\x{443}\x{44f}"
},
{
'Name' => "\x{422}\x{443}\x{43b}\x{430}"
},
{
'Name' => "\x{423}\x{43b}\x{430}\x{43d}-\x{423}\x{434}\x{44d}"
},
{
'Name' => "\x{421}\x{443}\x{440}\x{433}\x{443}\x{442}"
},
{
'Name' => "\x{418}\x{436}\x{435}\x{432}\x{441}\x{43a}"
},
{
'Name' => "\x{41a}\x{430}\x{43b}\x{438}\x{43d}\x{438}\x{43d}\x{433}\x{440}\x{430}\x{434}"
},
{
'Name' => "\x{41f}\x{435}\x{43d}\x{437}\x{430}"
},
{
'Name' => "\x{41d}\x{438}\x{436}\x{43d}\x{438}\x{439} \x{422}\x{430}\x{433}\x{438}\x{43b}"
},
{
'Name' => "\x{411}\x{435}\x{43b}\x{433}\x{43e}\x{440}\x{43e}\x{434}"
},
{
'Name' => "\x{422}\x{432}\x{435}\x{440}\x{44c}"
},
{
'Name' => "\x{41e}\x{440}\x{435}\x{43d}\x{431}\x{443}\x{440}\x{433}"
},
{
'Name' => "\x{411}\x{43b}\x{430}\x{433}\x{43e}\x{432}\x{435}\x{449}\x{435}\x{43d}\x{441}\x{43a}"
},
{
'Name' => "\x{411}\x{440}\x{430}\x{442}\x{441}\x{43a}"
},
{
'Name' => "\x{410}\x{440}\x{445}\x{430}\x{43d}\x{433}\x{435}\x{43b}\x{44c}\x{441}\x{43a}"
},
{
'Name' => "\x{42f}\x{43a}\x{443}\x{442}\x{441}\x{43a}"
},
{
'Name' => "\x{427}\x{435}\x{431}\x{43e}\x{43a}\x{441}\x{430}\x{440}\x{44b}"
},
{
'Name' => "\x{421}\x{442}\x{435}\x{440}\x{43b}\x{438}\x{442}\x{430}\x{43c}\x{430}\x{43a}"
},
{
'Name' => "\x{410}\x{431}\x{d0}\x{b0}\x{d0}\x{ba}\x{d0}\x{b0}\x{d0}\x{bd}"
},
{
'Name' => "\x{d0}\x{9b}\x{d0}\x{b8}\x{d0}\x{bf}\x{d0}\x{b5}\x{d1}\x{86}\x{d0}\x{ba}"
},
{
'Name' => "\x{d0}\x{a3}\x{d0}\x{bb}\x{d1}\x{8c}\x{d1}\x{8f}\x{d0}\x{bd}\x{d0}\x{be}\x{d0}\x{b2}\x{d1}\x{81}\x{d0}\x{ba}"
},
{
'Name' => "\x{d0}\x{9a}\x{d0}\x{b8}\x{d1}\x{80}\x{d0}\x{be}\x{d0}\x{b2}"
},
{
'Name' => "\x{d0}\x{a1}\x{d1}\x{82}\x{d0}\x{b0}\x{d0}\x{b2}\x{d1}\x{80}\x{d0}\x{be}\x{d0}\x{bf}\x{d0}\x{be}\x{d0}\x{bb}\x{d1}\x{8c}"
}
]
};
|
'Name' => "\x{410}\x{431}\x{d0}\x{b0}\x{d0}\x{ba}\x{d0}\x{b0}\x{d0}\x{bd}"
Я думаю мысль ясна!
Если бы не эти кривости, то на перле было бы скучно писать!  |