VPF::Дата в нужном формате - Форум программистов

rcdimon

Дата 12.2.2006, 09:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

Репутация: 1
Всего: 2

Здравствуйте.

Мне нужно узнать день недели, а я не знаю как smile

Код


my ($sec, $min, $hour, $mday, $mon, $year_off, $wsday, $yday, $isdst)=localtime;

вот тут нигде нет smile

А мне в конечном итоге надо сформировать дату такого формата

Sun, 12 Feb 2006 11:14:25 +0500

arto

Дата 12.2.2006, 12:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

perldoc -f localtime
perldoc POSIX

rcdimon

Дата 12.2.2006, 18:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

Репутация: 1
Всего: 2

Добавлено @ 18:52
Хотя в общем уже не надо. Спасибо smile

Уже придумай что делать с локалтаймом.

А вообще никак не заставить перл выдавать дату именно в этом формате?

korob2001

Дата 12.2.2006, 21:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

Код


#!/usr/bin/perl -w
use strict;
print scalar localtime;

А вообще укажи в каком формате у тебя есть дата, т.е. из которого ты хочешь перевести в другой формат. Модулей на CPAN немеренно для работы с датами. Можно сделать конечно и в ручную, а можно заюзать POSIX, Time::Local, Date::Manip, Date::Calc

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

nitr

Дата 13.2.2006, 04:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

Ну если хочеться использовать только стандарт (иногда надо, если шелл чужой ;) )...

Код


#!/usr/bin/perl
my $year = 1900+(localtime(time))[5];
my $day = (localtime(time))[3];
my $wday = (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[(localtime(time))[6]];
my $month = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[(localtime(time))[4]];
my $hour = (localtime(time))[2];
$hour = "0$hour" if $hour =~ /^\d$/;
my $min = (localtime(time))[1];
$min = "0$min" if $min =~ /^\d$/;
my $sec = (localtime(time))[0];
$sec = "0$sec" if $sec =~ /^\d$/;
my $diff1 = abs((localtime(time))[2]-(gmtime(time))[2]);
$diff1 = "0$diff1" if $diff1 =~ /^\d$/;
my $diff2 = abs((localtime(time))[1]-(gmtime(time))[1]);
$diff2 = "0$diff2" if $diff2 =~ /^\d$/;
my $diff = "+$diff1$diff2"  if (localtime(time))[2] >= (gmtime(time))[2];
$diff = "-$diff1$diff2" unless (localtime(time))[2] >= (gmtime(time))[2];
print "$wday, $day $month $year $hour:$min:$sec $diff";

Это сообщение отредактировал(а) nitr - 13.2.2006, 04:04

--------------------

I love ArchLinux

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »