ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Tokar                     2:5020/400     20 Jun 2000  15:45:33
 To : All
 Subject : Re: local -> date
 -------------------------------------------------------------------------------- 
 

 > tbc> Кто-нибудь знает, есть ли простой способ перевода даты (в хорошем случае 
 > tbc> - произвольной, в плохом - localtime) в дату от начала эпохи (такой же
 > tbc> как выдается time). Дата не текущая, т.е. её вводит человек.
 > 
 > В модуле Time::Local, кажется, была подобного рода фиговина.
 
 или 
 use Date::Parse;
 use Time::ParseDate;
 use Date::Format;
 
 Я исследовал этот вопрос довольно подробно. Похоже, стандартных функций
 нет, корректно работающих для всех дат. Если выберешь какую-то, сразу
 проверь, как она работает с разными датами, типа 
 foreach(   "00.00.00 00:00:00",   "01.02.03 04:05:06",
    "01.02.1971 00:00:00",  "01.02.71 00:00:00",
    "01.02.1521 00:00:00",  "01.02.21:00:00:00",
    "07-MAR-00 12:26",  'Thu Mar  9 11:42:38 MSK 2000',
    '07-MAR-2000 12:26', '07-MAR-2001 12:26' ){
   print "date      '$_'\n";
   print "MyParseDate:  '", join(' , ',MyParseDate($_)),"'\n";
 }
 -- 
 Konstantin Tokar (http://www.mpei.ac.ru/tokar)
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор