WWW :: Mechanize и "HTTP :: Содержимое сообщения должно быть байтами в ..."

Question

Я пишу простую программу, которая должна изменить некоторые данные на польском аукционе.

Один из этапов включает загрузку страницы редактирования, изменение одного значения и ее отправку.

Образец страницы можно посмотреть здесь: http://depesz.com/various/new_item.php.html - это просто статическая копия такой страницы редактирования.

Соответствующая часть моего PERL код:

$agent->form_number(1); 
$agent->submit(); 
$agent->form_number(1); 

my $q = $agent->current_form()->find_input('scheme_id'); 
$agent->field('scheme_id', '1025'); 
# $agent->field('description', encode('utf-8', $agent->value("description"))); 
# $agent->field('location', encode('utf-8', $agent->value("location"))); 
# $agent->field('transport_shipment_description', encode('utf-8', $agent->value("transport_shipment_description"))); 
$agent->submit; 
print $agent->response->decoded_content . "\n"; 

После первого отправить я получаю страницу я показал. Затем я меняю значение в поле schem_id на 1025 и отправлю форму.

Потом я получаю:

HTTP::Message content must be bytes at /usr/local/share/perl/5.8.8/HTTP/Request/Common.pm line 91 

Я попытался перекодировать значения на текстовых полей на форме - отсюда agent-> поле (...) кодируют линии, но это не помогло.

На данный момент я понятия не имею, что на форме может сделать WWW :: Mechanize терпят неудачу таким образом, но я, очевидно, не могу исправить самостоятельно.

Есть ли способ отладить эту ситуацию? Или, может быть, я должен сделать что-то по-другому?

Answer 1

Убедитесь, что модули LWP и WWW-Mechanize полностью обновлены. LWP исправил ряд проблем с кодированием в конце 2008 года, если я правильно помню.

Answer 2

У меня такая же проблема. Решено оно: my $newcontent = encode('utf-8', $file); перед публикацией содержания!

спасибо, микрофон

см http://www.perlmonks.org/?node_id=647935