https://m.opennet.me/openforum/vsluhforumID8/7479.html Что-то у меня случился затык.<br>Я пытаюсь делать так:<br><br>~~~~~~~<br>use XML::Simple;<br>use Cwd;<br>use Data::Dumper;<br><br><br>my $pwd = cwd; # get current directory<br>my $filename = 'Report.xml';<br><br>open my $output, '&gt;', "$pwd/Out.txt";<br><br>open my $file, '&lt;', $filename or die "Unable to open file ($pwd/$filename): $!\n";<br>my $xml = eval { XMLin($file) };<br>if ($@) {<br>die "Error while parsing xml file ($filename): $@\n";<br>}<br>print $output Dumper($xml);<br>close $file;<br>close $output;<br>~~~~~~~<br><br>Начало XMLки выглядит так:<br>~~~~~~~<br>&lt;?xml version="1.0" encoding="Windows-1251"?&gt;<br>&lt;Report&gt;&lt;Lang&gt;ru&lt;/Lang&gt;<br>&lt;Page&gt;&lt;Title&gt;Отчёт&lt;/Title&gt;&lt;Icon&gt;112&lt;/Icon&gt;<br>&lt;Item&gt;&lt;Title&gt;Версия&lt;/Title&gt;&lt;Icon&gt;112&lt;/Icon&gt;&lt;ID&gt;257&lt;/ID&gt;&lt;Value&gt;AIDA64 v1.70.1400/ru&lt;/Value&gt;&lt;/Item&gt;<br>~~~~~~~<br><br>Файл в cp1251, проверял нотпадом++.<br>Однако в Out.txt получается так:<br>~~~~~~~<br>VAR1 = {<br> 'Lang' =&gt; 'ru',<br> 'Page' =&gt; [<br> {<br> 'Item' =&gt; [<br> {<br> 'ID' =&gt; https://m.opennet.me/openforum/vsluhforumID8/7479.html#4 Fri, 30 Mar 2012 19:23:32 GMT Вообще, Dumper + utf8 + внешний файл - это гремучая смесь. Настоятельно рекомендую не использовать Dumper.<br><br>А мультибайтовой кодировке в 5.14 недавно удивлялись на Точке: http://xpoint.ru/forums/programming/perl/regexp/thread/45820.xhtml<br><br><br> https://m.opennet.me/openforum/vsluhforumID8/7479.html#3 Mon, 05 Mar 2012 04:28:10 GMT нашел старый скрипт в котором разбирал кириллицу, там вот такое в юзах:<br><br>use locale; use POSIX qw(locale_h); setlocale(LC_CTYPE,"ru_RU.CP1251");<br><br>может поможет ...<br> https://m.opennet.me/openforum/vsluhforumID8/7479.html#2 Sat, 03 Mar 2012 07:55:33 GMT &gt; А что не нравится?<br><br>очевидно автоматическая конвертация русских букв вот в это:<br> 'Title' =&gt; "\x{412}\x{435}\x{440}\x{441}\x{438}\x{44f}"<br> https://m.opennet.me/openforum/vsluhforumID8/7479.html#1 Fri, 02 Mar 2012 23:01:56 GMT А что не нравится?<br><br><br>