Модераторы: korob2001, ginnie

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Регулярные выражения 
:(
    Опции темы
study
Дата 9.12.2004, 12:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 20.9.2004

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

Заранее спасибо!!!
PM MAIL   Вверх
Phoinix
Дата 9.12.2004, 12:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

~ /^[\d\s\:\-]+$/;
PM WWW ICQ   Вверх
GoodBoy
Дата 9.12.2004, 12:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Главный джедай
****


Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

Репутация: 2
Всего: 83
$var =~ /^[0-9 :-]+$/;


--------------------
Чем дальше в лес, тем толще партизаны...

Цитата(igorold @  1.5.2016,  17:40 Найти цитируемый пост)
Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях. 
PM MAIL   Вверх
study
Дата 9.12.2004, 12:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 20.9.2004

Репутация: нет
Всего: нет
Спасибо, сейчас попробую.
PM MAIL   Вверх
chaos
Дата 9.12.2004, 12:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Серийный программист
****


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

Репутация: 6
Всего: 44
Цитата(study @ 9.12.2004, 12:28)
Народ, подскажите мне как проверить ввод пользователя. Строка может содержать только цифры от 0 до 9, символ пробела, символ ':' и символ '-'.

Заранее спасибо!!!

Сколько может быть пробелов, :,- ???
и приведи пример
PM WWW   Вверх
GoodBoy
Дата 9.12.2004, 12:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Главный джедай
****


Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

Репутация: 2
Всего: 83
Цитата(chaos @ 9.12.2004, 12:42)
Сколько может быть пробелов

а какая разница?


--------------------
Чем дальше в лес, тем толще партизаны...

Цитата(igorold @  1.5.2016,  17:40 Найти цитируемый пост)
Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях. 
PM MAIL   Вверх
study
Дата 9.12.2004, 13:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 20.9.2004

Репутация: нет
Всего: нет
Я правильно проверяю? А пример 2004-12-06 14:09:47, но времени может и не быть...

Код

if ($var =~ /^[0-9 :-]+$/){
print "не подходит";
}
PM MAIL   Вверх
chaos
Дата 9.12.2004, 13:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Серийный программист
****


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

Репутация: 6
Всего: 44
Цитата(study @ 9.12.2004, 13:17)
Я правильно проверяю? А пример 2004-12-06 14:09:47, но времени может и не быть...

Код

if ($var =~ /^[0-9 :-]+$/){
print "не подходит";
}

А пример 2004-12-06 14:09:47
я бы проверял так:
Код

$str = '2004-12-06 14:09:47';
if ($str =~ m/\d{4}-0[1-9]|1[0-2]-0[1-9]|1[0-9]|2[0-9]|3[0-1] (0[0-9]|1[0-9]|2[0-4]:...

и так далее

Это сообщение отредактировал(а) chaos - 9.12.2004, 16:50
PM WWW   Вверх
korob2001
Дата 9.12.2004, 13:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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

#!/usr/bin/perl -w
use strict;
my $var = "2004-12-06";
if ($var =~ /^\d{4}-\d{2}-\d{2}(?:\s+\d+:\d{2}:\d{2})?$/){
  print "Подходит";
} else {
  print "Не подходит";
}



--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
chaos
Дата 9.12.2004, 13:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Серийный программист
****


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

Репутация: 6
Всего: 44
Цитата(korob2001 @ 9.12.2004, 13:32)
Код

#!/usr/bin/perl -w
use strict;
my $var = "2004-12-06";
if ($var =~ /^\d{4}-\d{2}-\d{2}(?:\s+\d+:\d{2}:\d{2})?$/){
  print "Подходит";
} else {
  print "Не подходит";
}

а если будет вот такая хрень: 2004-43-32
это же не дата а п воему шаблону всебудет хорошо
PM WWW   Вверх
korob2001
Дата 9.12.2004, 13:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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

а если будет вот такая хрень: 2004-43-32
это же не дата а п воему шаблону всебудет хорошо

А для этого, нужно узнать, стоит-ли вообще делать такую проверку. ;))) Потому как за каждое уточнение прийдётся платить производительностью.


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
chaos
Дата 9.12.2004, 13:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Серийный программист
****


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

Репутация: 6
Всего: 44
Цитата(korob2001 @ 9.12.2004, 13:39)
Цитата

а если будет вот такая хрень: 2004-43-32
это же не дата а п воему шаблону всебудет хорошо

А для этого, нужно узнать, стоит-ли вообще делать такую проверку. ;))) Потому как за каждое уточнение прийдётся платить производительностью.

если задача стоит проверить правельность даты то нужно делать такие проверки
иначе нет смысла тк твой шаблон проверяет только на порядок и кол-во цифр
PM WWW   Вверх
study
Дата 9.12.2004, 14:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 20.9.2004

Репутация: нет
Всего: нет
chaos, можешь дать кусок готового кода? Pls....
PM MAIL   Вверх
chaos
Дата 9.12.2004, 14:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Серийный программист
****


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

Репутация: 6
Всего: 44
Цитата(study @ 9.12.2004, 14:07)
chaos, можешь дать кусок готового кода? Pls....

Вот тебе пример, вроде все работает
Код

$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 Инересны ваши замечания

Это сообщение отредактировал(а) chaos - 9.12.2004, 14:28
PM WWW   Вверх
chaos
Дата 9.12.2004, 16:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Серийный программист
****


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

Репутация: 6
Всего: 44
Цитата(study @ 9.12.2004, 13:17)
Я правильно проверяю? А пример 2004-12-06 14:09:47, но времени может и не быть...

Код

if ($var =~ /^[0-9 :-]+$/){
print "не подходит";
}

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

if ($var =~ /^[0-9 :-]+$/){
print "не подходит";
}
PM WWW   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0543 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.