﻿<?xml version='1.0' encoding='UTF-8'?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/"><channel><title>Релиб / Веб-программирование / Perl  / Perl XML SAX. Кодировки. События. / Latest Posts</title><generator>InstantForum.NET v4.1.4</generator><description>Релиб</description><link>http://relib.com/forums/</link><webMaster>robot@relib.com</webMaster><lastBuildDate>Wed, 03 Dec 2008 06:26:48 GMT</lastBuildDate><ttl>20</ttl><item><title>Perl XML SAX. Кодировки. События.</title><link>http://relib.com/forums/Topic855974-18-1.aspx</link><description>system Linux/perl 5.8.11. КодировкиПриходит письмо(rfc822) с атачем(rfc1521) в котором содержится XML(1.0) документ с кирилицей win1251.&lt;BR&gt;&amp;lt;?xml version=&amp;quot;1.0&amp;quot; encoding=&amp;quot;windows-1251&amp;quot; ?&amp;gt;&lt;BR&gt;....Используется (MIME-tools-5.416) раскодирую MIME64 получаю xml (win1251). Затем начинаю обрабатывать его XML-SAX-0.12 + XML-NamespaceSupport-1.08,  в XML/Parser/Encodings добавлены (ibm866.enc, koi8-r.enc, windows-1251.enc)  &lt;BR&gt;Для адекватного распознавания кодировки win-1251 использую use encoding 'windows-1251';[code] &lt;BR&gt;use XML::Parser::PerlSAX;&lt;BR&gt;use MyHandler;my $parser=XML::Parser::PerlSAX-&amp;gt;new(Handler=&amp;gt;MyHandler-&amp;gt;new());&lt;BR&gt;....&lt;BR&gt;[/code].Собственно вопрос. Как реализовать автоматическую расскадировку? т.е. чтобы не указовать прямо передоваемую в encoding кодировку? Я конечно могу перехватить содержимое encoding и потом подставить через переменную, но это както некрасиво.2. SAX2Не могу найти примера модуля с описанием событий SAX2 стандрата.. Интересует максимально полный модуль.. Тут прошу прощение за быть моцжет ламерские вопросы.&lt;BR&gt;Буду рад любому ответу по сабжу.168815113</description><pubDate>Fri, 04 Feb 2005 18:46:00 GMT</pubDate><dc:creator>pikachu</dc:creator></item></channel></rss>