MIME::QuotedPrint не кодируется – что я делаю не так?
С помощью этого кода:
#!/usr/bin/perl
use warnings FATAL => 'all';
use strict;
use MIME::QuotedPrint;
my $encoded = "=4E=6F=74=65=73=0A=4E=6F=74=65=73=20=6C=69=6E=65=20=32";
print decode_qp($encoded);
my $decoded = "Imported today";
$encoded = encode_qp($decoded);
print "\n$encoded\n";
Первый оператор печати дает именно то, что я ожидал, но второй дает Imported today= вместо =49=6D и т. д.
Что я делаю не так?
Стоит ли изучать PHP в 2023-2024 годах?
Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Приемы CSS-макетирования - floats и Flexbox
Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...
Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest
В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Пользовательский скаляр GraphQL
Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...
0
0
52
1
Перейти к ответу
Данный вопрос помечен как решенный
Ответы 1
Ответ принят как подходящий
В документации MIME::QuotedPrint говорится (выделено мной):
Каждый непечатаемый символ (по определению американцев английского происхождения) представлен тройкой, состоящей из символа «=", за которым следуют две шестнадцатеричные цифры.
И действительно, в тестах дистрибутива можно найти
# plain ascii should not be encoded
["", ""],
["quoted printable" =>
"quoted printable=\n"],
Итак, вы не делаете ничего плохого, ваши ожидания ошибочны.
Чтобы получить ожидаемый результат, вам не нужен какой-либо модуль:
my $encoded = join "", map sprintf("=%02X", ord), split //, 'Imported today';
@SteveWaring: Вы правы, исправили формат :-) Спасибо.
—
12.07.2024 16:56
Другие вопросы по теме
Perl для начинающих: синтаксис IF для пустого ввода
Net::OpenSSH не запускает команду?
Поведение Docker в командной строке отличается от интерактивного приглашения
Неоднозначность кода, когда -X дескриптор файла для размера файла
Параллельная обработка MCE: копирование и изменение AoA
Powershell генерирует выходные данные в потоке ошибок вместо потока вывода
Как получить и сохранить все зависимости модулей Perl от модуля Perl
Почему операция присваивания строк приводит к двойному использованию памяти в Perl
Передача параметров родительскому конструктору с использованием нового синтаксиса классов Perl
Почему PerlCritic считает, что мой прототип представляет собой интерполяцию строк?
Похожие вопросы
Преобразование временных меток в Perl, содержащих часовой пояс
Как перейти к определенной точке итерации foreach?
Как мне использовать «мой» для объявления массива и элемента в Perl?
Как удалить случайные элементы за один раз из массива с помощью сращивания в Perl?
Невозможно установить/скомпилировать модуль Perl DBD::DB2 в Rocky Linux 9.4 с помощью cpanm
Функция упаковки не может упаковать более 5 байт
Проблемы с динамическим импортом переменных в пространство имен
Группа захвата Perl исчезает в области видимости
Преобразование обычной буквы в широкий символ
Flock-вызовы в модуле Perl в системах AIX
Это здорово, спасибо. Формат sprintf должен быть «=%02X», чтобы получить «=0A» вместо «= a».