Проблема с кодировками

Тема в разделе "Perl программирование", создана пользователем LumovAn, 27 сен 2011.

Наш партнер Genesis Hackspace
  1. LumovAn

    LumovAn Гость

    Имеется следующая процедура на Perl:

    Код (Text):
    sub up_file {
    my ($api, $name, $url, $sum, $reupload) = @_;

    my $res = $api->api({
    action => 'query',
    prop => 'info',
    titles => $name
    }) || return $api->{error}->{details};
    my $missing = exists((values %{$res->{query}->{pages}})[0]->{missing});
    my $ua = LWP::UserAgent->new( timeout => 25 );
    my $response = $ua->get($url);
    $response = $response->decoded_content if($response->is_success());

    if((!$missing && $reupload) || $missing) {
    $api->edit({
    action => 'upload',
    filename => $name,
    comment => $sum,
    text => $sum,
    file => $response,
    ignorewarnings => 1
    }) || return 'Error with upload file ' . $name . ': ' . $api->{error}->{details};
    return 'done';
    }
    return 'File ' . $name . ' exist and $reupload is undefined';
    }
    Переменные: $api -> объект MediaWiki::API, вызываемый из основной программы, $name -> название файла в формате MediaWiki, $url -> адрес файла для получения его содержимого, $sum -> описание файла для системы контроля версий, $reupload -> если определено, позволяет перезаписывать имеющийся файл.

    При вызове процедуры отдает: "HTTP::Message content must be bytes at /usr/local/share/perl/5.10.0/HTTP/Request/Common.pm line 91".

    Как это можно исправить?
     
  2. ProFTP

    ProFTP Member

    Регистрация:
    20 ноя 2011
    Сообщения:
    6
    Симпатии:
    0
    возможно нужно декодировать:
    Код (Text):
    use Encode;

    Encode::encode( 'utf8', $text);
    вообще-то, надо смотреть
     
Загрузка...
Похожие Темы - Проблема кодировками
  1. Smorti
    Ответов:
    1
    Просмотров:
    18
  2. Denybxx
    Ответов:
    18
    Просмотров:
    132
  3. bes
    Ответов:
    0
    Просмотров:
    52
  4. Denybxx
    Ответов:
    4
    Просмотров:
    150
  5. AgniXRudra

    Проблема Проблема с MITM

    AgniXRudra, 8 дек 2016, в разделе: Kali Linux
    Ответов:
    8
    Просмотров:
    145

Поделиться этой страницей