Цитата(chaos @ 9.12.2004, 14:50)

если задача стоит проверить правельность даты то нужно делать такие проверки иначе нет смысла тк твой шаблон проверяет только на порядок и кол-во цифр

Да?
А если будет так : 2004-11-31 или 2003-02-29 ?
Коректность даты регуляркой проверить нельзя только порядок и кол-во цифр

Цитата

Вот этим ты вообще не понятно что пытался сделать:

Думаю что этим он пытался ответить на этот вопрос:

Народ, подскажите мне как проверить ввод пользователя. Строка может содержать только цифры от 0 до 9, символ пробела, символ ':' и символ '-'.
Заранее спасибо!!!


Как видишь, здесь вообще ничего не сказано, по поводу даты и времени.

Цитата

Вот тебе пример, вроде все работает Код  $str='2994-10-12 22:12:65'; if ($str =~ m/(2\d{3})\-(0[1-9]|1[0-2])\-(0[1-9]|1[0-9]|2[0-9]|3[01])/) { print "data ok"; if ($str =~ m/\d{4}-\d{2}-\d{2}\s([01][0-9]|2[0-3])[0-5][0-9])[0-5][0-9])/) {   print "time ok"; } else {print "  time error";} } else {print "data error";} ps Инересны ваши замечания

Да, ты совсем не экономишь ресурсы.
1.) Почему же ты не проверяешь год?
2.) Используя в регулярных выражениях символ "|", ты нагружаешь систему. А у тебя он встречается сколько раз?
3.) Круглых скобок понаставил, а переменные $1, $2 и т.д. не используешь. ( а это, драгоценная, память ;))) ).

Вобщем если есть у тебя книга "Perl - Библиотека программиста", открой станицу 104 и почитай о том, как парсит дату Том Кристиансен. Давай не будем считать его за лоха, чел можно сказать жизнь посвятил языку Perl.

Удачи.

Хорошо!!! Я принел во внимания Ваши замечания, действительно конструкция моя нагружена ненужными элементами, но сдругой стороны это как ни как пример, а тот кто им будет пользоваться может как ему нужно его изменить!!!

Вот еще один примерчик набросал:

Код

use English; use Time::Local; $date='2004-12-31 23:00:60'; ($yyyy, $mm, $dd,$t, $hh24, $mi, $ss) = ($date =~ /(\d+)-(\d+)-(\d+)(\s(\d{2}):(\d{2}):(\d{2}))?/); eval {timelocal($ss, $mi, $hh24, $dd, $mm-1, $yyyy)}; if ($EVAL_ERROR eq '') {print "ok";} else {print "error";}

ps Также интересны ваши замечания
Добавлено @ 14:29

Цитата(dimes @ 9.12.2004, 17:58)

Цитата(chaos @ 9.12.2004, ) если задача стоит проверить правельность даты то нужно делать такие проверки иначе нет смысла тк твой шаблон проверяет только на порядок и кол-во цифр Да? А если будет так : 2004-11-31 или 2003-02-29 ? Коректность даты регуляркой проверить нельзя только порядок и кол-во цифр

ты прав!
новое решение см. выше

Это сообщение отредактировал(а) chaos - 10.12.2004, 14:30

chaos

Вот это:

Код

($yyyy, $mm, $dd,$t, $hh24, $mi, $ss) = ($date =~ /(\d+)-(\d+)-(\d+)(\s(\d{2}):(\d{2}):(\d{2}))?/);

Заменить на:

Код

($yyyy, $mm, $dd, $hh24, $mi, $ss) = split /[\-\s\:]/,$date;

Это сообщение отредактировал(а) Phoinix - 10.12.2004, 19:08