Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > проблемы с кодировкой

Автор: chaos 12.7.2010, 09:21

Доброго времени суток!
Решаю следующую задачу: автоматическая загрузка контента на сайт.
Данные для загрузки берутся из файла с кодировкой UTF-8.

небольшой пример

Код


$response = $userAgent->get("http://lalalal.ru/addDataForm.php");
$content = $response->decoded_content;

Encode::from_to($content, "utf8", "cp1251");

@forms = Form::parse($content);
$forms[0]->value(data, $data_from_file_in_cp1251);
$forms[0]->click;

получаю на сайте вполне читабельные данные, но скрипт надо запускать под виндой.
копирую на виндовую машину и запускаю - в результате кракозябры.
Устал уже "танцевать с бубном" - ничего не получается

Может кто сталкивался подобным или есть какие-нибудь идеи.

Заранее благодарен!

ЗЫ Топик с вебом думаю не связан smile

связан с кодировкой, по этому запостил тут

Автор: chaos 13.7.2010, 19:12

кто-нибудь?!

Автор: OutlawZ 15.7.2010, 13:41

Попробуйте результаты в файл записать:

Код


use encoding 'CP1251', FILEPARSE => 'CP866';

open (FILEPARSE,'data.dat') or die "$!";
 print FILEPARSE $content;
close(FILEPARSE) or die "$!";

Точно не знаю , я с таким не работал , но может поможет. сильно не бить если что )))

Автор: chaos 21.7.2010, 07:40

поборол играми с http://search.cpan.org/~dankogai/Encode-2.39/Encode.pm