The OpenNET Project / Index page

[ новости/++ | форум | wiki | теги ]

Работа со временем и датами

   Корень / Программисту и web-разработчику / Perl / Работа со временем и датами

----* Как определить смещение в часах для текущей временной зоны в Perl и Shell   [обсудить]
 
Perl:
   use POSIX (strftime);
   my $tz = strftime("%z", localtime); 
   $tz =~ s/(\d\d)(\d\d)/$1/; 


Shell:
   date +%z|sed 's/[0-9][0-9]$//'
 
----* Как на perl преобразовать дату заданную в виде строки   [обсудить]
 
use Date::Parse;
my $time = str2time("Wed, 9 Jun 2003 09:50:32 -0500 (EST)");
 
----* Как определить дату начала и конца недели на Perl (доп. ссылка 1)   Автор: whirlwind.ru  [обсудить]
 
my $dofw = (localtime())[6];
my $time = time();
my $inday = 86400;
Начало недели $time - $inday * $dofw или localtime($time - $inday * $dofw)
Конец недели $time + $inday * (6 - $dofw) или localtime($time + $inday * (6 - $dofw))
 
----* Как зная день, месяц, год и время получить Epoch время (сек. от 1.1.1970)   [комментарии]
 
perldoc Time::Local;
$time = timelocal($sec,$min,$hours,$mday,$mon,$year);
С помощью Time::Local можно посчитать число секунд, дней, месяцев и т.д.
относительно какой-либо даты.
 
----* Чем воспользоваться для преобразования дат   [обсудить]
 
модуль Date::Calc
 
----* Как использовать промежутки времени меньше секунды   [комментарии]
 
модуль Time::HiRes
 
----* Как получить и отобразить текущее время   [комментарии]
 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) 
	= localtime(time());
$mon++;
$year += 1900;
$time_str = sprintf ("%.2ld/%.2ld/$year %.2ld:%.2ld:%.2ld",
	$mday,$mon,$hour,$min,$sec);
 

 Версия для печати




  Закладки на сайте
  Проследить за страницей
Created 1996-2017 by Maxim Chirkov  
ДобавитьРекламаВебмастеруГИД  
Hosting by Ihor