VPF::TIMESTAMP(12) в человеческий вид :) - Форум программистов

Wowa

Дата 17.4.2003, 17:57 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Админ
Сообщений: 15017
Регистрация: 14.9.2000
Где: Винград

Репутация: нет
Всего: 290

Как TIMESTAMP(12) переконвертить в что-нибудь, типа: ($year, $month, $day, $hour, $min, $ss)
?

Формат TIMESTAMP(12): 030417121049
год, месяц, число, часы, минуты, сек

Guest_Eugene

Дата 17.4.2003, 21:04 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А вот что по етому поводу пишет Oreilly/perl/cookbook/ch01_02.htm

Цитата

Solution
The substr function lets you read from and write to bits of the string.

$value = substr($string, $offset, $count);
$value = substr($string, $offset);

substr($string, $offset, $count) = $newstring;
substr($string, $offset) = $newtail;
The unpack function gives only read access, but is faster when you have many substrings to extract.

# get a 5-byte string, skip 3, then grab 2 8-byte strings, then the rest
($leading, $s1, $s2, $trailing) =
unpack("A5 x3 A8 A8 A*", $data);

# split at five byte boundaries
@fivers = unpack("A5" x (length($string)/5), $string);
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

ну и применимо к данной проблеме , в $string естестно надо положить тот самый TIMESTAMP(12) :

Код


($year, $month, $day, $hour, $min, $ss) = unpack("A2" x (length($string)/2), $string);

по моему так.

Wowa

Дата 17.4.2003, 22:18 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Админ
Сообщений: 15017
Регистрация: 14.9.2000
Где: Винград

Репутация: нет
Всего: 290

Работает! Большое спасибо!

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