 |
Как определить смещение в часах для текущей временной зоны в 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 можно посчитать число секунд, дней, месяцев и т.д.
относительно какой-либо даты.
|
| |
|
|
|
|
|
|
|
Как получить и отобразить текущее время |
[комментарии]
|
| | ($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);
|
| |
|
|
