Вход на хостинг
IT-новости
20.04.2016 iPhone 2017 года поместят в водонепроницаемый корпус из стекла
Линейка iPhone в новом году серьезно поменяется. В этом уверен аналитический исследователь Мин Чи Ку......
30.07.2015 Ищем уникальный контент для сайта
Ищем уникальный контент для сайта Без уникального контента Ваш сайт обречен на то, что его страницы......
{ $body = encoder($body, $bodyCoding, 'win') }
}
$subj = join( "",
map {xcode( ${$_}[1], ${$_}[0])}
decode_mimewords(
$ent->head->get('Subject',0)
)
);
$date = $ent->head->get('Date',0);
}
Собственно, все. Переменная $subj содержит тему письма, $body – тело письма, а $date – дату. Остальные параметры письма вы сможете легко получить, используя уже подключенные в программе модули.
Теперь вы смело можете сохранить в базе данных полученные результаты. Я, например, сохраняю их таким образом:
use collector;
($r) = Add2Revorum ( $subj, $body, $date );
где модуль collector.pm – часть моего движка сайта, которая создает необходимую структуру и, используя ядро ret WebOS и модуль Storable, пишет её базу (обычные плоские файлы).
О проблеме альтернативной СУБД я напишу в другой
статье. Те, кого это заинтересовало, могут обратиться за подробностями по интернет-адресу:
Подпрограммы или процедуры, ответственные за перекодировку:
sub xcode {
# определяем кодировку и вызываем перекодировщик, если нужно
my ($charset, $src) = @_;
my %charsets = (
'windows-1251' =>'win',
'iso8859-5' =>'iso',
'koi8-r' =>'koi',
'koi8r' =>'koi',
'koi8-u' =>'koi',
);
return $src unless ($charsets{lc($charset)});
return encoder($src, $charsets{lc($charset)}, 'win');