VPF::Работа с датой - Форум программистов

Bulat

Дата 26.7.2006, 08:06 (ссылка)

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

Загрузка ...

татарский Нео

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

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

Вот тут уж я без вас никак smile

Вообщем есть строка: Thu Jul 20 14:14:39 2006
вот ее надо привести к нормальному виду, чтоб можно было забить в базу, в базе: 20.06.2006 14:14:39

прошу полный код smile

P.S. ну на этом наверно пока все

--------------------

менеджер по кодеврайтингу smile

igorold

Дата 26.7.2006, 09:27 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 22.12.2005
Где: Россия->Урал-& gt;Миасс

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

держи ...

Код


$GetDate = "Thu Jul 20 14:14:39 2006";
        $GetDate =~ s/  / /g;

        my @Date = split(' ', $GetDate);
        if ($Date[2]<10) { $Date[2] = "0".$Date[2]; }
        if    ($Date[1] eq "Янв" or $Date[1] eq "Jan") { $Date[1]="01"; }
        elsif ($Date[1] eq "Фев" or $Date[1] eq "Feb") { $Date[1]="02"; }
        elsif ($Date[1] eq "Мар" or $Date[1] eq "Mar") { $Date[1]="03"; }
        elsif ($Date[1] eq "Апр" or $Date[1] eq "Apr") { $Date[1]="04"; }
        elsif ($Date[1] eq "Май" or $Date[1] eq "May") { $Date[1]="05"; }
        elsif ($Date[1] eq "Июн" or $Date[1] eq "Jun") { $Date[1]="06"; }
        elsif ($Date[1] eq "Июл" or $Date[1] eq "Jul") { $Date[1]="07"; }
        elsif ($Date[1] eq "Авг" or $Date[1] eq "Aug") { $Date[1]="08"; }
        elsif ($Date[1] eq "Сен" or $Date[1] eq "Sep") { $Date[1]="09"; }
        elsif ($Date[1] eq "Окт" or $Date[1] eq "Oct") { $Date[1]="10"; }
        elsif ($Date[1] eq "Ноя" or $Date[1] eq "Nov") { $Date[1]="11"; }
        else                      { $Date[1]="12"; }
        my $Data = "$Date[2].$Date[1].$Date[4] $Date[3]";

--------------------

... у семи нянек 14 сисек ...
Putin here, Putin there, Putin almost everywhere!

Nab

Дата 26.7.2006, 10:13 (ссылка)

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

Загрузка ...

Опытный

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

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

Посмотри на модуль Date::Manip. У него есть хорошая функция ParseDate, которая воспринимает даты разного формата.

--------------------

Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community
FREESCO in Ukraine

Bulat

Дата 26.7.2006, 11:06 (ссылка)

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

Загрузка ...

татарский Нео

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

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

igorold, сенкс. smile

тока

Код


$GetDate =~ s/  / /g;

по-моему лишнее

Это сообщение отредактировал(а) Bulat - 26.7.2006, 11:07

--------------------

менеджер по кодеврайтингу smile

igorold

Дата 26.7.2006, 11:09 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 22.12.2005
Где: Россия->Урал-& gt;Миасс

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

Цитата(Bulat @ 26.7.2006, 11:06

)

по-моему лишнее

если ты уверен, что двойных пробелов не будет, например: Thu Jul 2 14:14:39 2006
, тогда не надо ..

--------------------

... у семи нянек 14 сисек ...
Putin here, Putin there, Putin almost everywhere!

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