|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alex Lazarev 2:5052/7.39 25 May 2000 08:09:44
To : Vlad Z
Subject : Re: Отрезать кусочек строчки
--------------------------------------------------------------------------------
Wednesday May 24 2028 19:09, you wrote to All:
VZ> Скрипт берет из БД дату, но она там записана в таком виде:
VZ> 19991115201958 соответственно нужны только первые восемь
VZ> цифр. Hаверняка это элементарно, но вот не знаю как убрать остальные
VZ> цифры. А заодно чтобы потом это печаталось в формате 15-11-1999 г. Те
VZ> 19991115 надо разделить на отдельные части. Подскажите пожалуйста
VZ> как.
print join(q/-/, reverse($d =~ /(\d{4})(\d{2})(\d{2})/))'
Alex
--- GoldED/W32 3.0.1
* Origin: Дурак справедлив, но суров (2:5052/7.39)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
