VPF::Mime::Base64 - странная ошибка - Форум программистов

infarch

Дата 13.1.2012, 19:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 526
Регистрация: 13.3.2009

Репутация: нет
Всего: 1

Возникла необходимость перегнать файл из base64 в бинарный. Так как файл огромный, решил не грузить его целиком в память, а читать порциями, перекодировать и писать в результат. Насколько я понял теорию, длина порции должна быть кратна 4. И вот, чтобы проверить эту идею, я набросал маленький скрипт:

Код


sub test_b {
    my $str = "If you want to encode a large file, you should encode it in chunks that are a multiple of 57 bytes.";
    my $bb = encode_base64($str);
    my @chars = split '', $bb;
    my $test = '';
    my $buffer = '';
    foreach my $c (@chars){
        $buffer.=$c;
        if(length $buffer == 8){
            $test .= decode_base64($buffer);
            $buffer = '';
        }
    }
    if (length $buffer > 0){
        while (length $buffer < 4){
            $buffer .= '=';
        }
        $test .= decode_base64($buffer);
    }
    print $test;
}

Но работает он с весьма странной ошибкой: после определенного момента выдает мусор вместо исходных символов:

"If you want to encode a large file, you should encode it inБНб╒╣н╠Б╤бЕ╨БЕ╔Ф..."

Может кто нибудь подсказать где ошибка?

Это сообщение отредактировал(а) infarch - 13.1.2012, 19:12

DurRandir

Дата 14.1.2012, 13:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 335
Регистрация: 27.9.2009

Репутация: 14
Всего: 17

Цитата

The returned encoded string is broken into lines of no more than 76 characters each

infarch

Дата 15.1.2012, 17:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 526
Регистрация: 13.3.2009

Репутация: нет
Всего: 1

Огромное спасибо за подсказку! Надо же, я ведь это несколько раз перечитал, но вот не соотнес с моим багом.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »