| Цитата |
Вот этим ты вообще не понятно что пытался сделать: |
Думаю что этим он пытался ответить на этот вопрос:
Народ, подскажите мне как проверить ввод пользователя. Строка может содержать только цифры от 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.
Удачи.