<div>Сделай этой строке:</div><div>my $utf8 = pack 'C*', unpack 'U0C*',$str;</div><div>или</div><div> </div><div>my $utf8 = pack 'U0C*', unpack 'C*',$str;</div><div>Зависит от того в каком формате у вас текущий str. Попробуй оба варианта, 1 из них точно заработает.</div><div>05.04.2011, 10:02, "Денис Ильиных" <greyhard@gmail.com>:</div><blockquote>Привет мои дорогие )) Помогите разобраться сломал уже весь моск.<br /><br />Есть строка в UTF-8 о чем нам говорит Encode::Detect::Detector;<br /><br />Пытаюсь ее перевести в cp1251 в итоге <br /><br />--- UTF-8 (Encode::Detect::Detector)<br />--- Р§Р°СЃС‹ РјСѓР¶СЃРєРёРµ CHARMEX VIENNA CH 2031 вЂ• РЎР°РјС‹Рµ РњРѕРґРЅС‹Рµ Р§Р°СЃС‹ (строка)<br />--- ~  (тут должен был быть текст Text::Iconv )<br />--- 'Г—Г Г±Г» Г¬ГіГ¦Г±ГЄГЁГҐ CHARMEX VIENNA CH 2031 ? Г‘àìûå ГЊГ®Г¤Г­Г»ГҐ Г—Г Г±Г»' (тут текст encode('cp1251',$text))<br /><br />Причем другие строки которые детектируются как UTF-8 обрабатываются корректно.<br />Есть подозрение что в строке есть спецсимволы на которых Iconv не срабатывает или строка не UTF-8, ошибается детектор. <br /><br />perl 5.10.1<br /><br /><br /><span class="wmi-sign">-- <br />Moscow.pm mailing list<br /><a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org">http://moscow.pm.org</a><br /></span></blockquote><div> </div><div> </div><div>-- <br />С Уважением, Login|off Николай Александрович.</div>