>Неужели никто не знает, досадно... :(
тооже самое бьюсь не первый день.
Может уже кто нашёл решение?
Буду оченб презнателенЗадача; Скрипт на перле, который качает по pop письма и разбирает его по отправителю и теме и в зависимости от них ложит аттачи по папкам..
всё бы ничего но вот если вложение названо по русски 1251 парсер не воспринимает название,
переименовывает в 1, 1-1 и т.п.
далается так. кусок который за это отвечает:
---------------------------------------------
use MIME::Words qw(:all);
use MIME::Parser;
use Convert::Cyrillic;
use cyrillic qw/convert locase upcase detect dos2win win2dos/;
use Mail::POP3Client;
use File::Temp qw/ tempdir /;
my $parser = new MIME::Parser;
$parser->output_dir( '/tmp/1' );
$parser->decode_headers(0);
$parser->extract_nested_messages(1);
$parser->extract_uuencode(1);
my $tmp = $pop->HeadAndBody($i);
# $tmp = Convert::Cyrillic::cstocs( 'win','koi8',$tmp );
$parser->parse_data( \$tmp );
-----------------------------------
получаем, что на англ, названо нормально а что на русском
"ignoring text in character set `WINDOWS-1251'
at /usr/lib/perl5/site_perl/5.8.8/MIME/Parser/Filer.pm line 660 "
Вариант для распечатки
OpenNET: Виртуальная конференция (Public)
(ok) on 19-Апр-05, 04:16 
