VPF::Прикрепленные файлы к e-mail - Форум программистов

AlexPet

Дата 13.12.2007, 14:00 (ссылка)

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

Загрузка ...

Шустрый

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

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

Здравствуйте!

Вот сейчас столкнулся с такой проблемой. Нужно сохранять прикрепленные к почтовому сообщению файлы. Если имена файлов на английском языке, все нормально. Если на русском, какая-то трабла с кодировками :(

Код такой:

Код


use MIME::Parser;
my $parser = new MIME::Parser;
$parser->output_under("/home/mail");
$parser->decode_headers(1);

my $entity = $parser->parse_open("message2.msg");

На сервере кодировка KOI8-R, письмо (и название вложенного файла) в windows-1251.
Вариации с use locale; и setlocale не помогли.
На имя "Контрольная по философии.rar" выдает "%CA%EE%ED%F2%F0%EE%EB%FC%ED%E0%FF %EF%EE.rar"

Буду благодарен за любую помощь по устранению данной проблемы smile

Это сообщение отредактировал(а) AlexPet - 13.12.2007, 14:01

amg

Дата 13.12.2007, 14:39 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 38
Всего: 50

Наверняка не самое удачное решение, но работает.

Код


$attach = "%CA%EE%ED%F2%F0%EE%EB%FC%ED%E0%FF %EF%EE.rar";
$attach =~ s/%(\w\w)/chr hex $1/eg;
## Наверное, следующие две строки не нужны, если винды
#use Encode;
#$attach = encode('koi8-r', decode('cp1251', $attach));
print "$attach\n";

AlexPet

Дата 13.12.2007, 15:12 (ссылка)

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

Загрузка ...

Шустрый

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

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

amg, спасибо Вам!
Видимо, придется вручную перебирать все прикрепленные файлы и делать для них rename.
Жаль, что нет какой-нибудь опции правильной для MIME::Parser (или похожего по функциям модуля).
И еще непонятно, почему из "Контрольная по философии.rar" MIME::Parser оставляет только "Контрольная по.rar" :(

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