Как я могу преобразовать метку времени MySQL в RFC-822, используя Perl?

Question

У меня есть данные, хранящиеся в таблице mySQL под типом столбца «timestamp», которые я хотел бы вывести в качестве даты, совместимой с RFC-822, для включения в действительный канал RSS.

Я знаю, как можно просто вывести текущее время как объект RFC-822, используя perl, но я не понял, как преобразовать существующую строку. Строка отформатирована так: ГГГГ-ММ-ДД ЧЧ: ММ: СС

Answer 1

Вот что у меня получилось:

use POSIX qw( strftime );
...
$timestamp =~ /^(\d{4})-(\d{2})-(\d{2}) (\d{2}):(\d{2}):(\d{2})$/;
$rssTS = strftime('%a, %d %b %Y %T %Z', $6, $5, $4, $3, $2 - 1, $1 - 1900, -1, -1, -1);

Answer 2

Здесь CPAN помогает Интересно? Как насчет DateTime :: Format :: DateParse ?