Forum Webscript.Ru

Программирование => Perl => Тема начата: hoochie от 18 Сентября 2006, 09:15:14

Название: Вопрос по формату даты
Отправлено: hoochie от 18 Сентября 2006, 09:15:14

Я формирую дату из переменных $year,$month,$day,$hour,$min,$sec следующим образом:

$result_datee=join " ",
(join ".",sprintf("2%03d", $year), sprintf("%02d",$month) , sprintf("%02d",$day),
(join ":", sprintf("%02d",$hour), sprintf("%02d",$min), sprintf("%02d",$sec));

Можно ли проще? Поделитесь опытом....

Название: Вопрос по формату даты
Отправлено: arto от 18 Сентября 2006, 10:24:26

perldoc POSIX | less -p strftime

Название: Вопрос по формату даты
Отправлено: commander от 18 Сентября 2006, 12:52:57

hoochie
#!/usr/bin/perl -w
use strict;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $result_datee=sprintf("%04d.%02d.%02d %02d:%02d:%02d", $year+1900, $mon+1, $mday, $hour, $min, $sec);

Название: Вопрос по формату даты
Отправлено: hoochie от 18 Сентября 2006, 13:09:37

Сенкс