Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Perl: Общие вопросы > Работа с датой


Автор: Bulat 26.7.2006, 08:06
Вот тут уж я без вас никак  smile 

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

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

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

Автор: igorold 26.7.2006, 09:27
держи ... 
Код

$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]";
 

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

Автор: Bulat 26.7.2006, 11:06
igorold, сенкс.  smile  
тока 
Код

$GetDate =~ s/  / /g;

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

Автор: igorold 26.7.2006, 11:09
Цитата(Bulat @  26.7.2006,  11:06 Найти цитируемый пост)
по-моему лишнее 

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)